|
%I #7 Nov 16 2019 01:47:31
%S 4,6,8,15,20,24,30,33,50,63,77,100,115,120,153,169,182,198,207,238,
%T 252,335,340,350,355,360,442,465,468,504,583,594,605,616,627,649,660,
%U 748,765,891,1070,1080,1092,1116,1122,1128,1134,1295,1323,1333,1444,1482
%N Numbers n such that A094757(n) < n.
%H David A. Corneth, <a href="/A095299/b095299.txt">Table of n, a(n) for n = 1..1145</a> (terms <= 1.5*10^7)
%e A094757(4) = 2 < 4, hence 4 is in the sequence.
%o (PARI) {m=1500;pi=vector(m,n,omega(n!));for(n=1,m,k=1;while(n*pi[k]!=k*pi[n],k++);if(k<n,print1(n,",")))}
%Y Cf. A000720, A094757.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, Jun 01 2004
|
