OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
P. De Geest, World!Of Palindromic Primes
MATHEMATICA
Do[s = RealDigits[n, 4][[1]]; If[PrimeQ[n], If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]], {n, 1, 1600}]
(* Second program: *)
Select[Prime@ Range@ 1850, PalindromeQ@ IntegerDigits[#, 4] &] (* Michael De Vlieger, May 14 2017, Version 10 *)
PROG
(PARI) isok(n) = my(d=digits(n, 4)); d == Vecrev(d); \\ Michel Marcus, May 14 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved