|
Search: id:A113023
|
|
| |
|
| 5, 18, 90, 450, 2250, 11250, 56250, 281250, 1406250, 7031250
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(n+1)/a(n)=~5.
|
|
FORMULA
|
t = sorted union of 2^k (mod 10^n), 0<k<=5^n; then count only those which have n digits.
|
|
MATHEMATICA
|
Do[t = Union[ Table[ PowerMod[2, i, 10^n], {i, 5^n}]]; Print[ Length[ Select[t, Floor[ Log[10, # ] + 1] == n &]]], {n, 10}] (from Robert G. Wilson v Aug 27 2004)
|
|
CROSSREFS
|
Cf. A095810, A113022.
Adjacent sequences: A113020 A113021 A113022 this_sequence A113024 A113025 A113026
Sequence in context: A141733 A009305 A097574 this_sequence A127756 A009442 A036688
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 27 2004
|
|
|
Search completed in 0.002 seconds
|
