A117623 Values of k associated with A117622.
3, 2, 4, -1, 5, -6, 7, 9, -12, 8, 10, -14, 11, 13, -22, 15, 16, -28, 17, 18, -34, 20, 21, -38, 19, 24, -42, 25, -23, 26, 27, -49, 30, 29, -57, 31, 33, -63, 35, 32, -66, 36, 39, -72, 37, 40, -71, 41, 43, -83, 44, 45, -87, 46, 47, -91, 50, -48, 52, 51, -100, 53, 54, -105, 55, 56, -110, 59, 58, -115, 60
Offset: 1
Keywords
Programs
-
Mathematica
f[s_] := Block[{k = 1, d = Abs[Most@s - Rest@s], l = Last@s}, While[ PrimeQ[k] || MemberQ[s, k] || MemberQ[d, Abs[l - k]], k++ ]; Append[s, k]]; t = Nest[f, {1}, 71]; Rest@t - Most@t (* Robert G. Wilson v, Jun 13 2006 *)
Extensions
More terms from Jonathan Vos Post, Apr 10 2006
Corrected and extended by Robert G. Wilson v, Jun 13 2006
Comments