A129025 The first 8 values are predefined, the remaining set to a(n) = 48*prime(n)+n+2.

14, 52, 78, 133, 152, 248, 345, 538, 1115, 1404, 1501, 1790, 1983, 2080, 2273, 2562, 2851, 2948, 3237, 3430, 3527, 3816, 4009, 4298, 4683, 4876, 4973, 5166, 5263, 5456, 6129, 6322, 6611, 6708, 7189, 7286, 7575, 7864, 8057, 8346, 8635, 8732, 9213, 9310, 9503

Offset: 0

Author

Roger L. Bagula, May 06 2007

Keywords

• nonn
• easy
• less

Comments

The motivation for these two sequences is that the order-168 Kleinian n=7 group seems to demand a non-Euclidean E9 type of manifold and my work in cosmology led me to think in terms of an E10 exceptional group.

Crossrefs

Cf. A129024.

Programs

Mathematica

a0 = {14, 52, 78, 133, 152, 248, 345, 538}
a = Table[If[n <= 8, a0[[n]], Prime[n]*48 + n + 2], {n, 1, 25}]
Join[{14,52,78,133,152,248,345,538},Table[48Prime[n]+n+2,{n,9,80}]] (* Harvey P. Dale, Feb 11 2015 *)

Formula

Limit_{n->oo} A129025(n)/A129024(n) = 2.

Extensions

More terms from Harvey P. Dale, Feb 11 2015