OFFSET
1,3
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
upto=2000; tfs=Flatten[Table[{True, False}, {Ceiling[IntegerLength[ upto]]}]]; altparQ[n_]:= Module[{n2=n^2}, MemberQ[Partition[ tfs, IntegerLength[n2], 1], EvenQ/@IntegerDigits[n2]]]; Join[{0}, Select[Range[upto], altparQ]] (* Harvey P. Dale, May 12 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved