Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A074101
Squares using no prime digit.
0
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,3
MATHEMATICA
t1 = Prime[Range[4]]; Select[Range[0, 124]^2, Intersection[IntegerDigits[#], t1] == {} &] (* Jayanta Basu, Jul 31 2013 *)
CROSSREFS
Intersection of A000290 and A084984.
Sequence in context: A106313 A219355 A291216 * A034377 A034378 A062387
KEYWORD
nonn,base,changed
AUTHOR
Amarnath Murthy, Aug 21 2002
EXTENSIONS
More terms from Jason Earls, Jul 03 2003
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved