|
|
A048350
|
|
a(n)^2 is the smallest square containing exactly n 5's.
|
|
1
|
|
|
5, 75, 235, 745, 22485, 22925, 235065, 505525, 2356384, 23569166, 227069495, 674919666, 3931354166, 7450205075, 39969432765, 524933839166, 2134374738666, 4904646324166, 23802428354166
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
k := 1; For[n = 1, n < 30000, n++, If[DigitCount[n^2][[5]] == k, k++; Print[n]]] (* Stefan Steinerberger, Apr 09 2006 *)
a[n_] := Module[{i = 1}, While[DigitCount[i^2][[6]] != n, i++; ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 20 2006 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|