OFFSET
1,1
LINKS
C. Rivera, PrimePuzzle.net, Shallit Minimal Primes Set (Puzzle No. 178)
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
KEYWORD
base,easy,nonn
AUTHOR
Joseph L. Pe, Jun 02 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 07 2002
STATUS
approved