A134208 a(n) = A134207(n) + A134207(n-1).

5, 8, 12, 20, 30, 36, 42, 64, 108, 140, 176, 216, 286, 364, 390, 432, 510, 558, 760, 1000, 1092, 1188, 1426, 1632, 1650, 1690, 1782, 1848, 2146, 2520, 2790, 2976, 3102, 3366, 3780, 4140, 4292, 4446, 4914, 5360, 5822, 6300, 6450, 6776, 7110, 7360, 7614, 7728

Offset

1,1

Comments

a(n) is divisible by n for every n.

Links

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

Mathematica

a = {2}; For[n = 1, n < 100, n++, i = 1; While[Not[Mod[a[[ -1]] + Prime[PrimePi[a[[ -1]]] + i], n] == 0], i++ ]; AppendTo[a, Prime[PrimePi[ a[[ -1]]] + i]]]; c = {}; For[b = 1, b < Length[a], b++, AppendTo[c, a[[b]] + a[[b + 1]]]]; c (* Stefan Steinerberger, Oct 17 2007 *)

Crossrefs

Cf. A134207, A134209.

Sequence in context: A314418 A322033 A134205 * A285115 A115072 A114644

Adjacent sequences: A134205 A134206 A134207 * A134209 A134210 A134211

Keyword

nonn

Author

Leroy Quet, Oct 14 2007

Extensions

More terms from Stefan Steinerberger, Oct 17 2007

Status

approved