login
A171615
Numbers n with property that (n^2 + sum of the digits of n^2) is odd.
4
4, 6, 10, 11, 12, 13, 16, 18, 19, 23, 26, 27, 28, 30, 31, 32, 33, 34, 35, 38, 40, 41, 43, 44, 48, 50, 52, 55, 56, 57, 59, 60, 62, 64, 69, 70, 71, 75, 76, 81, 82, 85, 86, 90, 94, 95, 97, 98, 99, 100, 101, 102, 103, 106, 114, 116, 118, 120, 121, 122, 123, 126, 129, 131, 135
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