OFFSET
1,1
LINKS
Shyam Sunder Gupta, Table of n, a(n) for n = 1..1007
MATHEMATICA
t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 7, AppendTo[t, z]], {n, 1, 99999}]; t
Select[Prime[Range[130000]], PalindromeQ[#]&&Mod[#, 9]==7&] (* Harvey P. Dale, Jan 18 2026 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Shyam Sunder Gupta, Oct 02 2013
STATUS
approved
