|
%I #8 Mar 29 2015 13:15:04
%S 2,5,6,8,10,19,20,23,26,28,31,48,49,50,51,52,55,56,57,59,61,65,66,99,
%T 100,105,110,112,114,117,121,125,127,170,171,173,178,184,185,186,190,
%U 192,194,196,200,201,206,208,214,270,271,272,274,277,278,279,280,282
%N Numbers n for which the cube excess of the n-th prime is prime.
%F n such that A055400(A000040(n)) is an element of A000040. n such that A104492(n) is prime.
%e 99 is an element of this sequence because the 99th prime is 523, 523 - 8^3 = 523-512 = 11 and 11 is prime. 100 is in this sequence because the 100th prime is 541 and 541-8^3 = 29, which is prime.
%t f[n_] := Block[{k = 1, p = Prime[n]}, While[k^3 < p, k++ ]; p - (k - 1)^3]; Select[ Range[ 284], PrimeQ[ f[ # ]] &] (* _Robert G. Wilson v_, Mar 19 2005 *)
%Y Cf. A000040, A053186, A055400, A056892, A102821, A104492.
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Mar 19 2005
%E More terms from _Robert G. Wilson v_, Mar 19 2005
|
