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

0, 2, 3, 4, 6, 7, 9, 11, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 27, 28, 29, 31, 32, 34, 36, 38, 39, 40, 42, 43, 45, 47, 48, 49, 51, 52, 53, 55, 56, 58, 60, 61, 62, 64, 66, 67, 68, 70, 71, 73, 75, 76, 77, 79, 80, 81, 83, 84, 85, 87, 88, 90, 92, 93, 94, 96

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, A257046 (complement).

Programs

Haskell

a257047 n = a257047_list !! (n-1)
a257047_list = filter ((/= 1) . a256914) [0..]