OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000 (First 359 terms from Vincenzo Librandi)
FORMULA
a(n) = A030157(n)^2. - Michel Marcus, Aug 15 2018
MATHEMATICA
Join[{0, 4}, id[n_]:=IntegerDigits[n^2]; t={}; Do[If[Length[id[n]]==1, AppendTo[t, n], If[Union[Abs[Differences[Boole/@EvenQ[id[n]]]]]=={1}, AppendTo[t, n^2]]], {n, 4, 6000, 2}]; t] (* Vincenzo Librandi, Aug 15 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset changed by Michel Marcus, Aug 15 2018
STATUS
approved