OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..938
EXAMPLE
11 is a palindromic prime, and 11^2 = 121 is a palindrome.
MATHEMATICA
Select[FromDigits/@Tuples[{0, 1}, 20], PalindromeQ[#]&&PrimeQ[#] && PalindromeQ[ #^2]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 13 2017 *)
Select[FromDigits/@Tuples[{0, 1}, 20], PrimeQ[#]&&AllTrue[{#, #^2}, PalindromeQ]&] (* Harvey P. Dale, Jan 14 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Chai Wah Wu, Jan 06 2015
STATUS
approved