A147967 a(n) = n*(A001223(n)-1) = n*A046933(n).
0, 2, 3, 12, 5, 18, 7, 24, 45, 10, 55, 36, 13, 42, 75, 80, 17, 90, 57, 20, 105, 66, 115, 168, 75, 26, 81, 28, 87, 390, 93, 160, 33, 306, 35, 180, 185, 114, 195, 200, 41, 378, 43, 132, 45, 506, 517, 144, 49, 150, 255, 52, 477
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Module[{nn=60,gps},gps=Differences[Prime[Range[nn+1]]]-1;Times@@@ Thread[ {Range[nn],gps}]] (* Harvey P. Dale, Nov 07 2020 *)
Extensions
Definition clarified by N. J. A. Sloane, Nov 22 2021 at the suggestion of Harvey P. Dale.