A156294 Sum of products of the digits of prime numbers and the position of the digits in the prime numbers.
2, 3, 5, 7, 3, 7, 15, 19, 8, 20, 5, 17, 6, 10, 18, 11, 23, 8, 20, 9, 13, 25, 14, 26, 23, 4, 10, 22, 28, 12, 26, 10, 28, 34, 36, 14, 32, 22, 34, 24, 42, 20, 22, 28, 40, 46, 7, 15, 27, 33, 17, 35, 13, 15, 33, 23, 41, 19, 37, 21, 27, 29, 24, 8, 14, 26, 12, 30, 32, 38, 22, 40, 36, 26, 44
Offset: 1
Examples
For n = 5, prime(5) = 11 and A156207(11) = 1*1 + 1*2 = 3. So, a(5) = 3. - _Indranil Ghosh_, Feb 11 2017
Links
- Indranil Ghosh, Table of n, a(n) for n = 1..50000
Programs
-
Mathematica
Table[Total[IntegerDigits[#] Range@ IntegerLength@ #] &@ Prime@ n, {n, 75}] (* Michael De Vlieger, Feb 11 2017 *)
-
PARI
g(x) = local(v,j);v=Vec((Str(x))); sum(j=1, length(v), j*eval(v[j])) g1(n) = local(j);forprime(j=1,n,print1(g(j)","))
Formula
a(n) = A156207(prime(n)). - R. J. Mathar, Sep 10 2016