A129025 See Mathematica code.

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,1

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.

Links

Table of n, a(n) for n=0..44.

Formula

Limit[A129025[[n]/A129024[[n],n->Infinity]=2

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 *)

Crossrefs

Cf. A129024.

Sequence in context: A059997 A007588 A269312 * A113907 A125740 A332594

Adjacent sequences: A129022 A129023 A129024 * A129026 A129027 A129028

Keyword

nonn

Author

Roger L. Bagula, May 06 2007

Extensions

More terms from Harvey P. Dale, Feb 11 2015

Status

approved