|
| |
|
|
A007605
|
|
Sum of digits of n-th prime.
(Formerly M0633)
|
|
43
| |
|
|
2, 3, 5, 7, 2, 4, 8, 10, 5, 11, 4, 10, 5, 7, 11, 8, 14, 7, 13, 8, 10, 16, 11, 17, 16, 2, 4, 8, 10, 5, 10, 5, 11, 13, 14, 7, 13, 10, 14, 11, 17, 10, 11, 13, 17, 19, 4, 7, 11, 13, 8, 14, 7, 8, 14, 11, 17, 10, 16, 11, 13, 14, 10, 5, 7, 11, 7, 13, 14, 16, 11, 17, 16, 13, 19, 14, 20, 19, 5
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| a(n) = A007953(A000040(n)).
|
|
|
REFERENCES
| N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
CNRS press release, Sum of Digits of Prime Numbers Is Evenly Distributed: New Mathematical Proof of Hypothesis
|
|
|
MATHEMATICA
| Table[Apply[Plus, RealDigits[Prime[n]][[1]]], {n, 1, 100}]
Plus@@ IntegerDigits[Prime[Range[100]]] (Zak Seidov)
|
|
|
PROG
| (MAGMA) [ &+Intseq(NthPrime(n), 10): n in [1..80] ]; [From Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 13 2009]
(PARI) dsum(n)=my(s); while(n, s+=n%10; n\=10); s
forprime(p=2, 1e3, print1(dsum(p)", ")) \\ Charles R Greathouse IV, Jul 15 2011
(Haskell)
a007605_list = map a007953 a000040_list -- Reinhard Zumkeller, Aug 04 2011
|
|
|
CROSSREFS
| Cf. A038194, A065073, A068395.
Sequence in context: A074463 A038194 A111309 * A077765 A078400 A068951
Adjacent sequences: A007602 A007603 A007604 * A007606 A007607 A007608
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Mira Bernstein, Robert G. Wilson v (rgwv(AT)rgwv.com)
|
| |
|
|
