A129025 The first 8 values are predefined, the remaining set to a(n) = 48*prime(n)+n+2.
14, 52, 78, 133, 152, 248, 345, 538, 1115, 1404, 1501, 1790, 1983, 2080, 2273, 2562, 2851, 2948, 3237, 3430, 3527, 3816, 4009, 4298, 4683, 4876, 4973, 5166, 5263, 5456, 6129, 6322, 6611, 6708, 7189, 7286, 7575, 7864, 8057, 8346, 8635, 8732, 9213, 9310, 9503
Offset: 0
Crossrefs
Cf. A129024.
Programs
-
Mathematica
a0 = {14, 52, 78, 133, 152, 248, 345, 538} a = Table[If[n <= 8, a0[[n]], Prime[n]*48 + n + 2], {n, 1, 25}] Join[{14,52,78,133,152,248,345,538},Table[48Prime[n]+n+2,{n,9,80}]] (* Harvey P. Dale, Feb 11 2015 *)
Extensions
More terms from Harvey P. Dale, Feb 11 2015
Comments