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

Arkadiusz Wesolowski, Table of n, a(n) for n = 2..10000

Formula

a(2) = 1, a(n) = A006093(n)*A172367(n-2)/2.

Example

A192599(13) = 209 since A192599(17) = 350 is the next record value.

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

Cf. A000096, A014107, A192599.

Sequence in context: A140217 A182407 A284550 * A032601 A255410 A083141

Adjacent sequences: A200047 A200048 A200049 * A200051 A200052 A200053

Keyword

nonn

Author

Arkadiusz Wesolowski, Apr 16 2012

Status

approved