A024478 a(n) = s(1)t(n) + s(2)t(n-1) + ... + s(k)t(n+1-k), where k = [ (n+1)/2 ], s = (Lucas numbers), t = (primes).

2, 3, 14, 22, 52, 74, 149, 199, 360, 436, 764, 922, 1567, 1815, 3022, 3540, 5834, 6724, 10999, 12157, 19804, 22204, 36080, 39262, 63703, 68697, 111344, 121702, 197120, 215424, 348789, 375335, 607552, 642398, 1039688, 1112246, 1799935, 1899149, 3073194, 3235054

Offset

1,1

Links

Table of n, a(n) for n=1..40.

Maple

L:= n-> (<<1|1>, <1|0>>^n. <<2, -1>>)[1, 1]:
a:= n-> add(L(i)*ithprime(n+1-i), i=1..iquo(n+1, 2)):
seq(a(n), n=1..40);  # Alois P. Heinz, May 15 2025

Crossrefs

Cf. A000040, A000204.

Sequence in context: A081615 A157903 A025090 * A024603 A089876 A363474

Adjacent sequences: A024475 A024476 A024477 * A024479 A024480 A024481

Keyword

nonn

Author

Clark Kimberling

Extensions

a(33) corrected by Sean A. Irvine, Jul 12 2019

Status

approved