A200050 a(2) = 1, then (p-1)*(p-4)/2, with p = prime(n), n > 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
Offset: 2
Keywords
Examples
A192599(13) = 209 since A192599(17) = 350 is the next record value.
Links
- Arkadiusz Wesolowski, Table of n, a(n) for n = 2..10000
Programs
-
Magma
[(p-1)*Abs(p-4)/2: p in [NthPrime(n+1): n in [1..45]]]
-
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 *)
-
PARI
vector(45, n, p=prime(n+1); (p-1)*abs(p-4)/2)
Comments