|
%I #15 Sep 05 2020 08:56:36
%S 0,1,4,9,16,36,64,144,225,324,441,576,729,900,1024,1156,1296,1444,
%T 1600,1764,1936,2116,2304,2500,2704,2916,3136,3364,3600,3844,4096,
%U 4356,4624,4900,5184,5476,5776,6084,6400,6724,7056,7396,7744,8100,8464,8836,9216,9604,10000
%N Squares divisible by their number of digits.
%H David A. Corneth, <a href="/A117218/b117218.txt">Table of n, a(n) for n = 1..10000</a>
%e 225 is in the sequence because it is a square divisible by 3.
%t Join[{0},Select[Range[200]^2,Divisible[#,IntegerLength[#]]&]] (* _Harvey P. Dale_, May 06 2015 *)
%o (PARI) lista(nn) = {for (i=0, nn, if (issquare(i) && (i % #Str(i) == 0) , print1(i, ", ")););} \\ _Michel Marcus_, Jun 01 2013
%Y Intersection of A000290 and A098952.
%K base,easy,nonn
%O 1,3
%A Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006
%E 3364 inserted by _Michel Marcus_, Jun 01 2013
%E Corrected and extended by _Harvey P. Dale_, May 06 2015
|
