OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
ffpal := proc(n) local i, j, k, s, aa, nn, bb, flag; s := n; aa := convert(s, string); nn := length(aa); bb := ``; for i from nn by -1 to 1 do bb := cat(bb, substring(aa, i..i)); od; flag := 0; for j from 1 to nn do if substring(aa, j..j)<>substring(bb, j..j) then flag := 1 fi; od; RETURN(flag); end: ts_ndk_pal := proc(i) if ffpal((i)) = 0 then if (numtheory[issqrfree](i) = 'true' ) then RETURN((i)) fi fi end: andkpal := [seq(ts_ndk_pal(i), i=1..10000)]: andkpal;
MATHEMATICA
Select[ Range[ 1000], # == FromDigits[ Reverse[ IntegerDigits[ # ]]] && Max[ Transpose[ FactorInteger[ # ]] [[2]]] < 2 &]
Select[Range[1000], PalindromeQ[#]&&SquareFreeQ[#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 17 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 21 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 03 2002
STATUS
approved