

A117218


Squares divisible by their number of digits.


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS

Table of n, a(n) for n=1..49.


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: A256944 A106575 A025620 * A226076 A272711 A018228
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



