A136098 Prime palindromic cyclops numbers.

101, 16061, 31013, 35053, 38083, 73037, 74047, 91019, 94049, 1120211, 1150511, 1160611, 1180811, 1190911, 1250521, 1280821, 1360631, 1390931, 1490941, 1520251, 1550551, 1580851, 1630361, 1640461, 1660661, 1670761, 1730371

Offset: 1

Author

Lekraj Beedassy, Mar 15 2008

Keywords

• nonn
• base

Comments

Prime entries of A138131.

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A082435, A138131, A134808, A134809.

Programs

Maple

f:= proc(n,d) local L,m,k,p;
  L:= convert(9^d+n,base,9);
  p:= add((1+L[d+1-i])*(10^(i-1)+10^(2*d+1-i)),i=1..d);
  if isprime(p) then p fi;
end proc:
[seq(seq(f(i,d),i=0..9^d-1),d=1..3)]; # Robert Israel, Feb 18 2018

Mathematica

Select[Flatten[Table[Select[Range[10^(2n), 10^(2n+1)-1], PalindromeQ[ #] && DigitCount[ #, 10, 0]==1&&IntegerDigits[#][[(IntegerLength[#]+1)/2]]==0&], {n, 3}]],PrimeQ] (* James C. McMahon, Apr 27 2025 *)