A129024 The first 8 values are predefined, the remaining set to a(n) = 24*prime(n).
3, 15, 24, 48, 72, 120, 168, 264, 552, 696, 744, 888, 984, 1032, 1128, 1272, 1416, 1464, 1608, 1704, 1752, 1896, 1992, 2136, 2328
Offset: 1
Crossrefs
Cf. A129025.
Programs
-
Mathematica
b0 = {3, 15, 24, 48, 72, 120, 168, 264} b = Table[If[n <= 8, b0[[n]], Prime[n]*24], {n, 1, 25}]
Comments