산술에서, n- 매끄러운 숫자 (여기서 n은 주어진 소수 임)는 수학적으로 n보다 큰 소수가없는 양의 정수로 정의됩니다. 예를 들어 42는 7의 모든 주요 요소가 7보다 작거나 같기 때문에 7 평활이지만 44는 7의 평활 요소가 아니기 때문에 7 평활이 아닙니다.

자신의 제곱근보다 큰 소수 를 갖지 않는 숫자로 꽤 부드러운 숫자를 정의하십시오 . 따라서 매우 부드러운 숫자 목록은 다음과 같이 공식화 될 수 있습니다.

• (편집 됨!) 1 꽤 부드러운 수 인한 주요 요인의 완전한 부족이다. (이 질문의 원래 버전에서는 1이 목록에서 잘못 제외되었으므로 출력에서 ​​제외하면 잘못 표시되지 않습니다.)
• 4 (= 2 ² )와 8 사이 에서 꽤 부드러운 숫자는 2가 매끄 럽습니다. 이는 2를 유일한 주요 요인으로합니다.
• 9 (= 3 ² )에서 24 사이 의 매우 부드러운 숫자는 3이 매끄럽고 소인수 분해에서 2와 3을 가질 수 있습니다.
• 25 (= 5 ² )에서 48 사이 의 매우 부드러운 숫자는 5가 매끄럽고 소인수 분해에서 2, 3, 5를 가질 수 있습니다.
• 그리고 다음 소수의 제곱에 도달 할 때마다 기준을 업그레이드합니다.

매우 부드러운 숫자 목록은 고정되어 있으며 다음과 같이 시작합니다 : 1, 4, 8, 9, 12, 16, 18, 24, 25, ...

당신의 도전은 10,000 (= 100 ² )을 포함하여 매우 부드러운 숫자를 모두 출력하는 코드를 작성하는 것 입니다. 목록의 각 숫자와 다음 숫자 사이에는 적어도 하나의 구분 기호 (공백, 쉼표, 줄 바꿈 등)가 없어야하지만 사용되는 문자와는 전혀 관련이 없습니다.

평소와 같이, 가장 낮은 바이트 수가 승리합니다. 분명히 목록을 출력하는 것이 여기에 너무 유익하지 않을 것입니다. 행운을 빕니다!

실제로 11 바이트

4╤R`;yM²≤`░

온라인으로 사용해보십시오!

1을 포함하지 않습니다.

설명:

4╤R`;yM²≤`░
4╤R          range(10**4)
   `;yM²≤`░  filter: take values where
    ;yM²       the square of the largest prime factor
        ≤      is less than or equal to the value

젤리 , 12 바이트

Æf>½S
³²ḊÇÐḟ

온라인으로 사용해보십시오!

작동 원리

³²ḊÇÐḟ  Main link. No arguments.

³       Yield 100.
 ²      Square it to yield 10,000.
  Ḋ     Dequeue; yield [2, ..., 10,000].
   ÇÐḟ  Filter-false; keep elements for which the helper link returns 0.

Æf>½S   Helper link. Argument: n

Æf      Compute the prime factorization of n.
  >½    Compare the prime factors with the square root of n.
    S   Sum; add the resulting Booleans.

Brachylog , 21 19 바이트

Fatalize 덕분에 1 바이트를 더 사용하여 1 바이트를 더 영감을 얻었습니다.

100^:4reP$ph^<=P@w\

온라인으로 사용해보십시오!

여기에 약 6 초가 걸립니다.

100^:4reP$ph^<=P@w\
100                      100
   ^                     squared
    :4                   [10000,4]
      r                  [4,10000]
       eP                P is an integer in that interval (choice point),
        P$ph^<=P         P, prime factorized (from biggest to smallest),
                         take the first element, squared, is less than
                         or equal to P
               P@w       Write P with a newline,
                  \      Backtrack to the last choice point and make
                         a different choice until there is no more
                         choice and the program halts.

이전 21 바이트 솔루션

100^:4reP'($pe^>P)@w\

온라인으로 사용해보십시오!

여기에 약 6 초가 걸립니다.

100^:4reP'($pe^>P)@w\
100                      100
   ^                     squared
    :4                   [10000,4]
      r                  [4,10000]
       eP                P is an integer in that interval (choice point),
        P'(      )       The following about P cannot be proved:
           $pe               one of its prime factor
              ^              squared
               >P            is greater than P
                  @w     Write P with a newline,
                    \    Backtrack to the last choice point and make
                         a different choice until there is no more
                         choice and the program halts.

하스켈, 53 바이트

r=[1..10^4]
[n|n<-r,product[x|x<-r,x*x<=n]^n`mod`n<1]

지금 골프를 칠 시간이 없지만 n꽤 매끄러운 지 테스트하는 방법을 설명하고 싶습니다 .에서 1~ 까지의 수를 곱하고 sqrt(n)(즉 계승 계산) 제품을 고출력으로 올린 다음 결과를 확인하십시오. 의 배수입니다 n.

출력하지 않아야 할 r=[2..10^4]경우로 변경하십시오 1.

Pyth , 16 15 바이트

Jakube 덕분에 1 바이트.

tf!f>*YYTPTS^T4

온라인으로 사용해보십시오!

tf!f>*YYTPTS^T4
             T   10
            ^T4  10000
           S^T4  [1,2,3,...,10000]
 f               filter for elements as T for
                 which the following is truthy: 
         PT          prime factorization of T
   f                 filter for factor as Y:
     *YY                 Y*Y
    >   T                greater than T ?
  !                  logical negation
t                remove the first one (1)

05AB1E, 16 14 13 바이트

4°L¦vyf¤yt›_—

설명

4°L¦v             # for each y in range 2..10000
      yf¤         # largest prime factor of y
         yt       # square root of y
           ›_     # less than or equal
             —    # if true then print y with newline

온라인으로 사용해보십시오

Matlab, 58 57 56 52 48 바이트

for k=1:1e4
if factor(k).^2<=k
disp‌​(k)
end
end

각 숫자에 대해 제곱 한 모든 요인이 숫자 자체보다 크지 않은지 확인합니다. 그렇다면 해당 번호를 표시합니다.

이 접근법을 골프 로 한 @Luis Mendo 에게 감사합니다

다른 접근 방식 (50 바이트) :

n=1:10^4;for k=n
z(k)=max(factor(k))^2>k;end
n(~z)

각 숫자에 대해 최대 소인수 제곱이 숫자 자체보다 작은 지 계산합니다. 그런 다음 인덱싱에 사용합니다.

SQF , 252 (227) 220

표준 스크립트 형식 :

#define Q(A,B) for #A from 2 to B do{
Q(i,10000)if([i]call{params["j"];u=sqrt j;a=true;Q(k,u)a=a and((j%k!=0)or(j/k<u)or!([j/k]call{params["x"];q=true;Q(z,sqrt x)q=q and(x%z!=0)};q}))};a})then{systemChat format["%1",i]}}

다음을 호출 할 때 컴파일 체인에 전처리기를 포함하십시오.

• execVM "FILENAME.sqf"
• call compile preprocessFile "FILENAME.sqf"

SQF가 stdout해야하는 가장 가까운 시스템 채팅 로그에 기록합니다.

C, 113 바이트

#include<stdio.h>
main(a){for(;++a<10001;){int n=2,c=a;for(;n*n<=a;n++)while(c%n<1)c/=n;if(c<2)printf("%d ",a);}}

무시 했어!

파이크, 13 12 11 바이트

T4^S#DP#X<!

여기 사용해보십시오!

(10 ^ 4가 시간 초과되므로 링크는 10 ^ 3까지만 올라갑니다)

T4^S        -  one_range(10^4)
    #DP#X<! - filter_true(V, ^): (as i)
      P     -   factors(i)
       #X<! -  filter_true(V, ^):
        X   -   ^ ** 2
         <! -    not (i < ^)

J, 20 바이트

(#~{:@q:<:%:)2+i.1e4

결과:

   (#~{:@q:<:%:)2+i.1e4
4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 60 63 64 70 72 75 80...

여기에서 온라인으로 사용해보십시오.

파이썬 2, 90 바이트

for i in range(4,10001):
 n=2;j=i
 while n*n<=j:
  while i%n<1:i/=n
  n+=1
 if i<2:print j

무시 했어!

R, 97 바이트

b=F;for(j in 1:1e4){for(i in which(!j%%1:j)[-1])if(which(!i%%1:i)[2]==i)b=i<=j^0.5;if(b)print(j)}

언 골프

b <- F                               #Initializes
for (j in 1:1e4){                    #Loop across integers 1..10^4
    a <- which(!j%%1:j)[-1]          #Finds all factors
    for (i in a)                     #Loop across factors
         b <- which(!i%%1:i)[2]==i   #Tests primeness
         if(b) c <- i<=j^0.5         #If prime, tests smoothness
    if(c) print(j)                   #If biggest prime factor gives smooth
}                                    #result, Prints the number.

Pyth, 12 바이트

g#^ePT2tS^T4

1을 포함하지 않습니다.