A219188 Sum of prime divisors (with repetition) of Lucas(n).

0, 3, 4, 7, 11, 8, 29, 47, 23, 44, 199, 32, 521, 284, 46, 2207, 3571, 118, 9349, 2168, 244, 353, 600, 1152, 263, 90484, 5802, 14517, 19548, 2570, 3010349, 5568, 10104, 63513, 1022, 103713, 54018521, 29134604, 1463, 4689, 370248451, 1799, 151190, 2118, 787

Offset

1,2

Comments

The same as A070827 from a(2) on. - R. J. Mathar, Nov 16 2012

Links

Amiram Eldar, Table of n, a(n) for n = 1..1000

Formula

a(n) = A001414(A000032(n)). - Amiram Eldar, Sep 05 2019

Example

a(6) = 8 because Lucas(6) = 18 =  2*3^2 and the sum of the prime divisors with repetition is 2 + 2*3 = 8.

Maple

A219188 := proc(n)
    A001414(A000204(n)) ;
end proc:
seq(A219188(n), n=1..48) ; # R. J. Mathar, Nov 16 2012

Mathematica

f[n_] := Plus @@ Times @@@ FactorInteger@ LucasL[n]; f[1] = 0; Array[f, 60]

Crossrefs

Cf. A000204, A001414, A219187.

Sequence in context: A002887 A080034 A061447 * A283428 A185506 A328379

Adjacent sequences: A219185 A219186 A219187 * A219189 A219190 A219191

Keyword

nonn

Author

Michel Lagneau, Nov 14 2012

Status

approved