|
Search: id:A055723
|
|
|
| A055723 |
|
Number of lucky numbers <= 10^n. |
|
+0
1
|
|
| 1, 4, 23, 153, 1118, 8772, 71918, 609237, 5286238, 46697909
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
W. Schneider, Lucky Numbers
|
|
MATHEMATICA
|
lst = Range[1, 10^6, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Table[ Length@ Select[t, #<=10^n &], {n, 8}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Sequence in context: A020079 A116881 A107089 this_sequence A007297 A111547 A053525
Adjacent sequences: A055720 A055721 A055722 this_sequence A055724 A055725 A055726
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
|
|
EXTENSIONS
|
a(8),a(9) were calculated by Walter Schneider (wschnei(AT)t-online.de).
|
|
|
Search completed in 0.002 seconds
|
