OFFSET
1,3
COMMENTS
Or, n's such that A171613(n) is even.
MATHEMATICA
Union@Table[If[EvenQ[n^2+Total[IntegerDigits[n^2]]], n, 0], {n, 0, 200}]
Select[Range[0, 200], EvenQ[#^2+Total[IntegerDigits[#^2]]]&] (* Harvey P. Dale, Apr 01 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 13 2009
STATUS
approved