A117218 Squares divisible by their number of digits.

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

David A. Corneth, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A117215 A117216 A117217 * A117219 A117220 A117221

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