A171615 Numbers n with property that (n^2 + sum of the digits of n^2) is odd.

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.

Links

Table of n, a(n) for n=1..65.

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

Cf. A062028, A171613, A171615.

Sequence in context: A335032 A349132 A057670 * A141780 A185002 A110604

Adjacent sequences: A171612 A171613 A171614 * A171616 A171617 A171618

Keyword

base,nonn

Author

Zak Seidov, Dec 13 2009

Status

approved