A117622 Minesweeper sequence: a(n) is the first nonprime number, k, not occurring previously in the sequence nor the absolute value of its first forward difference among the first differences and a(1)=1.
1, 4, 6, 10, 9, 14, 8, 15, 24, 12, 20, 30, 16, 27, 40, 18, 33, 49, 21, 38, 56, 22, 42, 63, 25, 44, 68, 26, 51, 28, 54, 81, 32, 62, 91, 34, 65, 98, 35, 70, 102, 36, 72, 111, 39, 76, 116, 45, 86, 129, 46, 90, 135, 48, 94, 141, 50, 100, 52, 104, 155, 55, 108, 162, 57, 112, 168
Offset: 1
Keywords
Examples
Beginning with 1 he takes a jump of 3 to touch 4 then a jump of 2 to touch 6, then a jump of 4 to touch 10 then a jump of 1 in the other direction to touch 9 and so on.
Programs
-
Mathematica
f[s_] := Block[{k = 2, d = Abs[Most@s - Rest@s], l = Last@s}, While[ PrimeQ[k] || MemberQ[s, k] || MemberQ[d, Abs[l - k]], k++ ]; Append[s, k]]; Nest[f, {1}, 66] (* Robert G. Wilson v *)
Extensions
Edited and corrected by Robert G. Wilson v, Jun 13 2006
Comments