1,2

a(7) > 15000. - Derek Orr, Jul 29 2014

a(7) > 10^5. - Robert Price, Apr 05 2019

23 is in the sequence because 7777777777777777777777723(23 7's followed by 23) is prime.

Do[ If[GCD[n, 30] == 1 && PrimeQ[ FromDigits[ Join[ Table[7, {n}], IntegerDigits[n]]]], Print[n]], {n, 1, 6500}]

(PARI)

for(n=1, 15000, p=""; for(k=1, n, p=concat(p, Str(7))); p=concat(p, Str(n)); if(ispseudoprime(eval(p)), print1(n, ", "))) \\ Derek Orr, Jul 29 2014

Cf. A070746, A068817.

Sequence in context: A022683 A042020 A263521 * A322287 A327918 A327919

Adjacent sequences: A084425 A084426 A084427 * A084429 A084430 A084431

nonn,base,more,hard

Farideh Firoozbakht, Jun 27 2003

a(6) from Derek Orr, Jul 29 2014

approved