|
%I #10 Dec 15 2017 17:36:00
%S 0,1,4,9,16,49,64,81,100,144,169,196,400,441,484,841,900,961,1089,
%T 1444,1600,1681,1849,4096,4489,4900,6084,6400,6889,8100,8464,8649,
%U 9409,9604,9801,10000,10404,10609,10816,11449,11664,11881,14161,14400,14641,14884
%N Squares using no prime digit.
%t t1 = Prime[Range[4]]; Select[Range[0, 124]^2, Intersection[IntegerDigits[#], t1] == {} &] (* _Jayanta Basu_, Jul 31 2013 *)
%K nonn,base
%O 0,3
%A _Amarnath Murthy_, Aug 21 2002
%E More terms from _Jason Earls_, Jul 03 2003
|
