A052076 List of cubes p^3 of primes with property that next prime after p is a substring of p^3.

1331, 1030301, 11224377919, 40343019516073, 83964379378069, 153551511228149, 153548930496746303, 214889691497505989703913, 79943078473759892945966959, 16573430415736921632549592733, 22837138677705447754568672309, 940309072235302647342697969346063

Offset: 1

Author

Patrick De Geest, Jan 15 2000

Keywords

• nonn
• base
• nice

Links

• Giovanni Resta, Table of n, a(n) for n = 1..15

Crossrefs

Cf. A052075, A052073, A052074, A274932.

Programs

Mathematica

f[0]=8;f[n_]:=Module[{i=PrimePi[f[n-1]^(1/3)]+1},
While[StringPosition[ToString[Prime[i]^3],ToString[NextPrime[Prime[i]]]]=={}, i++];Prime[i]^3];f/@Range[7] (* Ivan N. Ianakiev, Nov 16 2016 *)
#^3&/@Select[Prime[Range[10^6]],SequenceCount[IntegerDigits[#^3],IntegerDigits[ NextPrime[ #]]]> 0&] (* Harvey P. Dale, Jul 29 2023 *)

Extensions

More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 12 2006

Definition clarified by Charles R Greathouse IV, Dec 24 2014

a(12) from Giovanni Resta, Jul 02 2018