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

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006

Keywords

• base
• easy
• nonn

Examples

			225 is in the sequence because it is a square divisible by 3.
		

Links

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

Crossrefs

Intersection of A000290 and A098952.

Programs

Mathematica

Join[{0},Select[Range[200]^2,Divisible[#,IntegerLength[#]]&]] (* Harvey P. Dale, May 06 2015 *)

PARI

lista(nn) = {for (i=0, nn, if (issquare(i) && (i % #Str(i) == 0) , print1(i, ", ")););} \\ Michel Marcus, Jun 01 2013

Extensions

3364 inserted by Michel Marcus, Jun 01 2013

Corrected and extended by Harvey P. Dale, May 06 2015