OFFSET
1,1
LINKS
Attila Olah, Table of n, a(n) for n=1..43964
Lubomira Dvorakova, Stanislav Kruml, and David Ryzak, Antipalindromic numbers, arXiv:2008.06864 [math.CO], 2020. Mentions this sequence.
Eric Weisstein's World of Mathematics, Palindromic Prime.
FORMULA
MAPLE
isA016041 := proc(n)
local bin, dig ;
if isprime(n) then
bin := convert(n, base, 2) ;
for dig from 1 to nops(bin)/2 do
if op(dig, bin) <> op(-dig, bin) then
return false;
end if;
end do ;
return true;
else
false ;
end if ;
end proc:
for i from 1 to 900 do p := ithprime(i) : if isA016041(p) then printf("%d, ", A007088(p)) ; fi ; od : # R. J. Mathar, Feb 25 2007
MATHEMATICA
pal2Q[n_] := Reverse[x = IntegerDigits[n, 2]] == x; BaseForm[Select[Prime[Range[700]], pal2Q[#] &], 2] (* Jayanta Basu, Jun 24 2013 *)
FromDigits /@ Select[IntegerDigits[Prime@ Range[1000], 2], PalindromeQ] (* Michael De Vlieger, Oct 28 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Martin Renner, Apr 13 2006
STATUS
approved