|
%I #25 Jul 29 2023 17:39:34
%S 1331,1030301,11224377919,40343019516073,83964379378069,
%T 153551511228149,153548930496746303,214889691497505989703913,
%U 79943078473759892945966959,16573430415736921632549592733,22837138677705447754568672309,940309072235302647342697969346063
%N List of cubes p^3 of primes with property that next prime after p is a substring of p^3.
%H Giovanni Resta, <a href="/A052076/b052076.txt">Table of n, a(n) for n = 1..15</a>
%t f[0]=8;f[n_]:=Module[{i=PrimePi[f[n-1]^(1/3)]+1},
%t While[StringPosition[ToString[Prime[i]^3],ToString[NextPrime[Prime[i]]]]=={}, i++];Prime[i]^3];f/@Range[7] (* _Ivan N. Ianakiev_, Nov 16 2016 *)
%t #^3&/@Select[Prime[Range[10^6]],SequenceCount[IntegerDigits[#^3],IntegerDigits[ NextPrime[ #]]]> 0&] (* _Harvey P. Dale_, Jul 29 2023 *)
%Y Cf. A052075, A052073, A052074, A274932.
%K nonn,base,nice
%O 1,1
%A _Patrick De Geest_, Jan 15 2000
%E More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 12 2006
%E Definition clarified by _Charles R Greathouse IV_, Dec 24 2014
%E a(12) from _Giovanni Resta_, Jul 02 2018
| 