OFFSET
1,1
COMMENTS
Most first differences are alternatively 18 and 32.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
map(x-> x^2, {9,2859,9009,9041,28491}) = {81,8173881,81162081,81739681,811737081}.
MAPLE
f:= proc(d) local L, U, a, b;
L:= ceil(sqrt(81*10^(d-2)));
U:= floor(sqrt(82*10^(d-2)));
op(select(t -> t >= L and t <= U, [seq(seq(100*a+b, b=[9, 41, 59, 91]), a=ceil((L-91)/100)..floor((U-4)/100))]))
end proc:
seq(f(d), d=2..12); # Robert Israel, Jan 02 2018
MATHEMATICA
be9Q[n_]:=Module[{idn=IntegerDigits[n^2]}, Take[idn, 2]== Take[idn, -2] =={8, 1}]; nn=300000; Sort[Join[Select[Range[9, nn, 10], be9Q], Select[Range[ 11, nn, 10], be9Q]]] (* Harvey P. Dale, Apr 30 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Apr 21 2009
STATUS
approved