A117873 Primes for which the level as defined in A117563 is 3.

11, 19, 37, 43, 97, 113, 127, 139, 163, 223, 307, 313, 317, 337, 389, 397, 401, 421, 457, 479, 547, 673, 691, 709, 757, 761, 853, 863, 883, 929, 937, 953, 1021, 1051, 1109, 1297, 1303, 1327, 1399, 1471, 1567, 1571, 1583, 1693, 1699, 1723, 1783, 1951, 2029

Offset

1,1

Links

Remi Eismann, Table of n, a(n) for n = 1..10000

Example

13 = 11 + 11 mod 3 = 11 + 11 mod 9, level = 3
701 = 691 + 691 mod 227 = 691 + 691 mod 681, level = 3
6907 = 6899 + 6899 mod 2297 = 6899 + 6899 mod 6891, level = 3

Mathematica

f[n_] := Block[{d, j = 2, p = Prime@n}, d = Prime[n + 1] - p; While[j < p && Mod[p, j] != d, j++ ]; If[j == p, 0, j]]; g[n_] := Block[{d, k = p = Prime@n}, d = Prime[n + 1] - p; While[k > 0 && Mod[p, k] != d, k-- ]; If[k == 0, 0, k]]; h[n_] := Block[{a = f@n, b = g@n}, If[a == 0, 0, b/a]]; Prime@Select[ Range@327, h@# == 3 &] (* Robert G. Wilson v *)

Crossrefs

Cf. A117563, A117078, A118534.

Sequence in context: A248398 A052368 A226542 * A321568 A271779 A271840

Adjacent sequences: A117870 A117871 A117872 * A117874 A117875 A117876

Keyword

nonn

Author

Rémi Eismann, May 02 2006

Extensions

More terms from Robert G. Wilson v, May 06 2006

Status

approved