OFFSET
1,1
COMMENTS
Starting from composites instead of primes we obtain much larger terms, like 92997492273. - Giovanni Resta, Feb 27 2013
LINKS
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 77269
Carlos Rivera, Puzzle 377
EXAMPLE
463 belongs to this sequence because 463, 461, 443 and 263 are all prime.
MATHEMATICA
apQ[p_]:=Module[{id=IntegerDigits[p]}, id[[1]]>2&&Min[id]>1&&AllTrue[Table[p-(2*10^d), {d, 0, IntegerLength[p]-1}], PrimeQ]]; Select[Prime[Range[80000]], apQ] (* Harvey P. Dale, Aug 24 2024 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Arkadiusz Wesolowski, Feb 27 2013
STATUS
approved