A082442 Palindromic primes with middle digit 6.

10601, 16661, 70607, 73637, 76667, 79697, 94649, 98689, 1126211, 1186811, 1196911, 1276721, 1286821, 1456541, 1486841, 1496941, 1556551, 1616161, 1646461, 1826281, 1856581, 1876781, 1936391, 1976791, 3016103, 3026203

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[220000]], OddQ[IntegerLength[#]]&&PalindromeQ[#]&&IntegerDigits[#][[(IntegerLength[#]+1)/2]]==6&] (* Harvey P. Dale, Feb 14 2025 *)

Prog

(Magma) [ p: p in PrimesUpTo(200000000) | IsOdd(d) and D[(d+1) div 2] eq 6 and D eq Reverse(D) where d is #D where D is Intseq(p) ]; // Vincenzo Librandi, Apr 12 2011

Crossrefs

Cf. A002385.

Sequence in context: A229881 A070249 A083977 * A252101 A031864 A184092

Adjacent sequences: A082439 A082440 A082441 * A082443 A082444 A082445

Keyword

nonn,base,changed

Author

Lekraj Beedassy, Apr 25 2003

Extensions

Corrected by David Wasserman, Sep 09 2004

Status

approved