|
| |
|
|
A161184
|
|
Digital roots of highly composite numbers (A002182).
|
|
1
| |
|
|
1, 2, 4, 6, 3, 6, 9, 3, 6, 3, 9, 6, 9, 9, 3, 9, 6, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| a(n)=9 for n>17 because for those n, the highly composite number A002182(n) is divisible by 9. [From T. D. Noe (noe(AT)sspectra.com), Jul 28 2009]
|
|
|
FORMULA
| a(n)=A010888(A140645(n)). [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 15 2009]
|
|
|
EXAMPLE
| 7560 is a highly composite number whose digital root is 9.
|
|
|
MAPLE
| read("transforms3"): L := BFILETOLIST("b002182.txt") : A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end: A010888 := proc(n) local a ; a := A007953(n) ; while a > 9 do a := A007953(a) ; od; a; end: for i from 1 to 200 do printf("%d, ", A010888(op(i, L))) ; od: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 15 2009]
|
|
|
CROSSREFS
| Cf. A002182
Sequence in context: A104492 A075075 A088178 * A140645 A117532 A057336
Adjacent sequences: A161181 A161182 A161183 * A161185 A161186 A161187
|
|
|
KEYWORD
| nonn,easy,base
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Jun 05 2009
|
|
|
EXTENSIONS
| Extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 15 2009
|
| |
|
|
