A092844 a(n) = Sum_{k=1..n} prime(k)*10^(k-1).
2, 32, 532, 7532, 117532, 1417532, 18417532, 208417532, 2508417532, 31508417532, 341508417532, 4041508417532, 45041508417532, 475041508417532, 5175041508417532, 58175041508417532, 648175041508417532
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..996
Programs
-
Maple
ListTools:-PartialSums([seq(ithprime(i)*10^(i-1),i=1..30)]); # Robert Israel, Apr 12 2020
-
Mathematica
Array[Sum[Prime[k]*10^(k - 1), {k, #}] &, 17] (* Michael De Vlieger, Jun 22 2022 *) Accumulate[Table[Prime[n]10^(n-1),{n,20}]] (* Harvey P. Dale, Oct 11 2022 *)
-
PARI
a(n) = fromdigits(Vecrev(primes(n))); \\ Kevin Ryde, Jun 22 2022