A052076 - OEIS

%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