A257046 Numbers having trace 1 in their enhanced squares representation, see A256913.

1, 5, 8, 10, 14, 17, 21, 24, 26, 30, 33, 35, 37, 41, 44, 46, 50, 54, 57, 59, 63, 65, 69, 72, 74, 78, 82, 86, 89, 91, 95, 98, 101, 105, 108, 110, 114, 117, 122, 126, 129, 131, 135, 138, 142, 145, 149, 152, 154, 158, 161, 165, 168, 170, 174, 177, 179, 183, 186

Offset: 1

Author

Reinhard Zumkeller, Apr 15 2015

Keywords

• nonn

Comments

A256914(a(n)) = 1.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A256913, A256914, A257047 (complement).

Programs

Haskell

a257046 n = a257046_list !! (n-1)
a257046_list = filter ((== 1) . a256914) [0..]