A244271 Primes p such that p1p2p3p4p5p6p7p8p9p is prime.

17, 53, 181, 313, 829, 859, 1151, 1493, 2011, 2161, 2267, 2287, 2371, 2521, 2549, 2791, 2803, 3019, 3617, 3821, 4273, 4481, 4483, 4493, 5081, 5351, 5399, 5669, 5851, 6067, 6197, 6529, 6781, 6833, 8123, 8329, 8527, 8597, 9277, 10631, 10771, 11119, 11801, 11807, 11941, 12149, 12239, 12421, 12479, 12743, 13033

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

53 is prime and 53153253353453553653753853953 is prime. Thus 53 is a member of this sequence.

Mathematica

Select[Prime[Range[1600]], PrimeQ[FromDigits[Flatten[ IntegerDigits/@ Riffle[ PadRight[ {}, 10, #], Range[ 9]]]]]&] (* Harvey P. Dale, Jun 20 2021 *)

Prog

(PARI) for(n=1, 10^4, b=""; for(i=2, 20, if(i==Mod(1, 2), b=concat(b, Str((i-1)/2))); if(i==Mod(0, 2), b=concat(b, Str(prime(n))))); if(ispseudoprime(eval(b)), print1(prime(n), ", ")))

Crossrefs

Cf. A244270.

Sequence in context: A082078 A107175 A244270 * A224269 A125637 A320897

Adjacent sequences: A244268 A244269 A244270 * A244272 A244273 A244274

Keyword

nonn,base,less

Author

Derek Orr, Jun 24 2014

Status

approved