OFFSET
1,1
COMMENTS
Or, n's such that A171613(n) is odd.
MATHEMATICA
Drop[Union@Table[If[OddQ[n^2+Total[IntegerDigits[n^2]]], n, 0], {n, 0, 200}], 1]
Select[Range[150], OddQ[#^2+Total[IntegerDigits[#^2]]]&] (* Harvey P. Dale, Feb 18 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 13 2009
STATUS
approved