%I #4 Feb 18 2015 15:14:27
%S 4,6,10,11,12,13,16,18,19,23,26,27,28,30,31,32,33,34,35,38,40,41,43,
%T 44,48,50,52,55,56,57,59,60,62,64,69,70,71,75,76,81,82,85,86,90,94,95,
%U 97,98,99,100,101,102,103,106,114,116,118,120,121,122,123,126,129,131,135
%N Numbers n with property that (n^2 + sum of the digits of n^2) is odd.
%C Or, n's such that A171613(n) is odd.
%t Drop[Union@Table[If[OddQ[n^2+Total[IntegerDigits[n^2]]],n,0],{n,0,200}],1]
%t Select[Range[150],OddQ[#^2+Total[IntegerDigits[#^2]]]&] (* _Harvey P. Dale_, Feb 18 2015 *)
%Y Cf. A062028, A171613, A171615.
%K base,nonn
%O 1,1
%A _Zak Seidov_, Dec 13 2009
|