A274260 Forbidden residues of the greedy prime offset sequence.
1, 1, 4, 3, 5, 1, 7, 9, 11, 25, 15, 33, 13, 21, 23, 31, 29, 52, 33, 35, 35, 39, 41, 58, 11, 13, 51, 53, 57, 29, 63, 65, 43, 69, 119, 75, 122, 81, 83, 112, 89, 4, 95, 94, 174, 99, 105, 111, 113, 123, 107, 119, 228, 125, 223, 131, 126, 135, 201, 29, 141, 193
Offset: 1
Keywords
Links
- R. Michael Perry, a number sequence relating to the closepacking of primes
Programs
-
Mathematica
b[n_] := Module[{set = {}, m = 0, p, q, r}, p = Prime[n]; While[Length[set] < p - 1, m++; q = Mod[g[m], p]; If[FreeQ[set, q], set = Append[set, q]]]; r = Complement[Range[0, p - 1], set][[1]]; {n, p, r, m}] (* b[n] returns a 4-element list: {n, Prime[n], forbidden_residue[n], exhaustion_number[n]}. g is the greedy sequence, see A135311 for Mathematica code, where a[n]=g[n].*)
Comments