A074101 Squares using no prime digit.

0, 1, 4, 9, 16, 49, 64, 81, 100, 144, 169, 196, 400, 441, 484, 841, 900, 961, 1089, 1444, 1600, 1681, 1849, 4096, 4489, 4900, 6084, 6400, 6889, 8100, 8464, 8649, 9409, 9604, 9801, 10000, 10404, 10609, 10816, 11449, 11664, 11881, 14161, 14400, 14641, 14884

Offset: 1

Author

Amarnath Murthy, Aug 21 2002

Keywords

• nonn
• base

Crossrefs

Intersection of A000290 and A084984.

Programs

Mathematica

t1 = Prime[Range[4]]; Select[Range[0, 124]^2, Intersection[IntegerDigits[#], t1] == {} &] (* Jayanta Basu, Jul 31 2013 *)

Extensions

More terms from Jason Earls, Jul 03 2003

Offset changed by Andrew Howroyd, Sep 19 2024