A171614 - OEIS

%I #7 Apr 01 2019 16:55:10

%S 0,1,2,3,5,7,8,9,14,15,17,20,21,22,24,25,29,36,37,39,42,45,46,47,49,

%T 51,53,54,58,61,63,65,66,67,68,72,73,74,77,78,79,80,83,84,87,88,89,91,

%U 92,93,96,104,105,107,108,109,110,111,112,113,115,117,119,124,125,127,128

%N Numbers n with property that (n^2 + sum of the digits of n^2) is even.

%C Or, n's such that A171613(n) is even.

%t Union@Table[If[EvenQ[n^2+Total[IntegerDigits[n^2]]],n,0],{n,0,200}]

%t Select[Range[0,200],EvenQ[#^2+Total[IntegerDigits[#^2]]]&] (* _Harvey P. Dale_, Apr 01 2019 *)

%Y Cf. A062028, A171613, A171615.

%K base,nonn

%O 1,3

%A _Zak Seidov_, Dec 13 2009