OFFSET
1,2
COMMENTS
a(29)>10^32 (if it exists)
LINKS
Robert Gerbicz, Table of n, a(n) for n = 1..28
EXAMPLE
6317056^2 = 39905196507136 which ends with 6507136, so 6317056 is a term.
MATHEMATICA
Select[Range[10^7], Function[k, Take[IntegerDigits[#^2], -Length@ k] == Reverse@ k]@ IntegerDigits@ # &] (* Michael De Vlieger, Mar 04 2016 *)
PROG
(PARI) isA269588(n)=dn = digits(n); rn = subst(Polrev(dn), x, 10); nbd = #dn; (n^2 - rn) % 10^nbd == 0; \\ Michel Marcus, Mar 01 2016
(PARI) \\ printA269588len(d) prints all terms of the sequence with d digits
rev(n) = eval(concat(Vecrev(Str(n))));
{ printA269588len(d) = my(l, u, n); l=ceil(d/2); u=floor(d/2); for(y=0, 10^l-1, n=rev(y^2 % 10^u)*10^l+y; if(#Str(n)==d && Mod(n, 10^d)^2==rev(n), print(n)); ); }
\\ Max Alekseyev, Mar 07 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
José Eduardo Gaboardi de Carvalho, Mar 01 2016
EXTENSIONS
a(18)-a(20) from Max Alekseyev, Mar 07 2016
a(21)-a(27) from Robert Gerbicz, Apr 03 2016
a(28) from Dieter Beckerle, Jun 09 2016
STATUS
approved