%I #5 Mar 30 2012 18:40:21
%S 2,4,5,8,9,10,13,18,19,20,21,24,29,30,33,38,45,48,49,50,51,52,59,64,
%T 65,68,73,80,87,88,89,92,99,100,105,108,115,120,121,128,137,142,145,
%U 150,153,154,159,174,175,176,177,178,179,184,191,194,205,208,215,216,223
%N Complement of A101184.
%C Not of the form n + pi(n) + pi(pi(n)) + pi(pi(pi(n))) + pi(pi(pi(pi(n)))) + ...
%t f[n_] := Plus @@ FixedPointList[ PrimePi, n]; Complement[ Range[225], Table[ f[n], {n, 165}]]
%Y Cf. A000720.
%K nonn
%O 1,1
%A _Jonathan Vos Post_ and _Robert G. Wilson v_, Dec 03 2004
|