OFFSET
1,3
COMMENTS
This sequence generates A256398.
LINKS
Bui Quang Tuan, Table of n, a(n) for n = 1..554
EXAMPLE
12 is in the sequence because 12^2 + 21^2 = 585, a palindrome.
MATHEMATICA
palQ[n_] := Reverse@ IntegerDigits@ n == IntegerDigits@ n; Select[
Range@2210, palQ[#^2 + FromDigits[Reverse[IntegerDigits@ #]]^2] &] (* Michael De Vlieger, Mar 29 2015 *)
PROG
(PARI) rev(n)=r=""; d=digits(n); for(i=1, #d, r=concat(Str(d[i]), r)); eval(r);
ispal(n) = d = digits(n); Vecrev(d) == d;
isok(n) = ispal(n^2+rev(n)^2) \\ Michel Marcus, Apr 01 2015
(Python)
A256437_list = [i for i in range(10**6) if str(i**2 + int(str(i)[::-1])**2) == str(i**2 + int(str(i)[::-1])**2)[::-1]] # Chai Wah Wu, Apr 09 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bui Quang Tuan, Mar 29 2015
STATUS
approved