|
|
A200050
|
|
a(2) = 1, then (p-1)*(p-4)/2, with p = prime(n), n > 2.
|
|
2
|
|
|
1, 2, 9, 35, 54, 104, 135, 209, 350, 405, 594, 740, 819, 989, 1274, 1595, 1710, 2079, 2345, 2484, 2925, 3239, 3740, 4464, 4850, 5049, 5459, 5670, 6104, 7749, 8255, 9044, 9315, 10730, 11025, 11934, 12879, 13529, 14534, 15575, 15930, 17765, 18144, 18914, 19305
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,2
|
|
COMMENTS
|
Record values in A192599. The index sequence of this one is 1, 2, 3, 6, 7, 9, 11, 13, 17, 18, 21, 23, 25, 29, 31, 34, 36, 40, 42, 45, 47, 50, 52, 56, 58, 61.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Table[p = Prime[n + 1]; (p - 1)*Abs[p - 4]/2, {n, 45}]
Join[{1}, ((#-1)(#-4))/2&/@Prime[Range[3, 50]]] (* Harvey P. Dale, Aug 04 2020 *)
|
|
PROG
|
(Magma) [(p-1)*Abs(p-4)/2: p in [NthPrime(n+1): n in [1..45]]]
(PARI) vector(45, n, p=prime(n+1); (p-1)*abs(p-4)/2)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|