A201498 a(n) = (prime(n) - 1)*(prime(n+1) - 1)/2 + 3.
4, 7, 15, 33, 63, 99, 147, 201, 311, 423, 543, 723, 843, 969, 1199, 1511, 1743, 1983, 2313, 2523, 2811, 3201, 3611, 4227, 4803, 5103, 5409, 5727, 6051, 7059, 8193, 8843, 9387, 10215, 11103, 11703, 12639, 13449, 14279, 15311, 16023, 17103, 18243, 18819, 19407
Offset: 1
Keywords
Programs
-
Mathematica
#/2+3&/@(Times@@@Partition[Prime[Range[50]]-1,2,1]) (* Harvey P. Dale, Jun 01 2015 *)
-
PARI
p=2;forprime(q=3,1e3,print1((p-1)*(q-1)/2+3", ");p=q) \\ Charles R Greathouse IV, Dec 05 2011
Formula
a(n) = A099407(n) + 3.
Comments