cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-1 of 1 results.

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.

Original entry on oeis.org

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

Views

Author

Amarnath Murthy, Apr 08 2006

Keywords

Comments

Let there be mines under prime numbers in the sequence of natural numbers (on the number line). A man starts from 1 and moves on the line to cover all composite numbers once. He can take a jump of length k only once for every k. He can jump to either side. He moves so that he gives priority to touch the smallest composite number not covered earlier.
Does every composite number get touched?

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.
		

Crossrefs

Cf. A117623 (values of k), A081145 (if nothing is mined).

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
Showing 1-1 of 1 results.