login
A071602
Sum of the reverses of the first n primes.
0
2, 5, 10, 17, 28, 59, 130, 221, 253, 345, 358, 431, 445, 479, 553, 588, 683, 699, 775, 792, 829, 926, 964, 1062, 1141, 1242, 1543, 2244, 3145, 3456, 4177, 4308, 5039, 5970, 6911, 7062, 7813, 8174, 8935, 9306, 10277, 10458, 10649, 11040, 11831
OFFSET
1,1
LINKS
J. Shallit, Minimal Primes, Journal of Recreational Mathematics, vol. 30.2 1999-2000 pp. 113-117, Baywood NY.
EXAMPLE
a(6) = reverse(2) + reverse(3) + reverse(5) + reverse(7) + reverse(11) + reverse(13) = 2 + 3 + 5 + 7 + 11 + 31 = 59.
MATHEMATICA
f[n_] := Sum[ FromDigits[ Reverse[ IntegerDigits[Prime[i]]]], {i, 1, n}]; Table[ f[n], {n, 1, 50}]
Accumulate[FromDigits[Reverse[IntegerDigits[ #]]] & /@ Prime[Range[ 50]]] (* Harvey P. Dale, Jan 27 2011 *)
Accumulate[IntegerReverse[Prime[Range[50]]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 10 2020 *)
PROG
(Python)
from sympy import primerange
from itertools import accumulate
print(list(accumulate(int(str(p)[::-1]) for p in primerange(2, 198)))) # Michael S. Branicky, Jun 24 2022
CROSSREFS
Partial sums of A004087.
Sequence in context: A172512 A172982 A178137 * A046485 A294562 A109377
KEYWORD
base,easy,nonn
AUTHOR
Joseph L. Pe, Jun 02 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 07 2002
STATUS
approved