Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A117218
Squares divisible by their number of digits.
1
0, 1, 4, 9, 16, 36, 64, 144, 225, 324, 441, 576, 729, 900, 1024, 1156, 1296, 1444, 1600, 1764, 1936, 2116, 2304, 2500, 2704, 2916, 3136, 3364, 3600, 3844, 4096, 4356, 4624, 4900, 5184, 5476, 5776, 6084, 6400, 6724, 7056, 7396, 7744, 8100, 8464, 8836, 9216, 9604, 10000
OFFSET
1,3
LINKS
EXAMPLE
225 is in the sequence because it is a square divisible by 3.
MATHEMATICA
Join[{0}, Select[Range[200]^2, Divisible[#, IntegerLength[#]]&]] (* Harvey P. Dale, May 06 2015 *)
PROG
(PARI) lista(nn) = {for (i=0, nn, if (issquare(i) && (i % #Str(i) == 0) , print1(i, ", ")); ); } \\ Michel Marcus, Jun 01 2013
CROSSREFS
Intersection of A000290 and A098952.
Sequence in context: A349062 A106575 A025620 * A226076 A357753 A272711
KEYWORD
base,easy,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006
EXTENSIONS
3364 inserted by Michel Marcus, Jun 01 2013
Corrected and extended by Harvey P. Dale, May 06 2015
STATUS
approved