|
|
A129025
|
|
See Mathematica code.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|