A136492 Complement of A018826.

3, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81

Offset: 1

Author

Reinhard Zumkeller, Jan 01 2008

Keywords

• nonn
• easy
• base

Crossrefs

Cf. A018826, A136491.

Programs

Mathematica

Select[Range[0, 100], StringFreeQ[IntegerString[#^2, 2], IntegerString[#, 2]] &] (* Paolo Xausa, Apr 05 2024 *)