OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
Wikipedia, Pythagorean primes
FORMULA
MATHEMATICA
Select[Range[10000], PrimeQ[4#+1]&&PalindromeQ[4#+1]&] (* Harvey P. Dale, Jun 24 2023 *)
PROG
(PARI) is(n)=n==eval(concat(Vecrev(Str(n))))&&isprime(n);
for(n=1, 1e4, if(is(4*n+1), print1(n, ", "))) \\ Altug Alkan, Nov 04 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Matevz Markovic, Jul 02 2011
EXTENSIONS
Prior Mathematica program removed and more terms from Harvey P. Dale, Jun 24 2023
STATUS
approved