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

0,3

Links

Table of n, a(n) for n=0..45.

Mathematica

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

Crossrefs

Sequence in context: A106313 A219355 A291216 * A034377 A034378 A062387

Adjacent sequences: A074098 A074099 A074100 * A074102 A074103 A074104

Keyword

nonn,base

Author

Amarnath Murthy, Aug 21 2002

Extensions

More terms from Jason Earls, Jul 03 2003

Status

approved