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

Author

Rémi Eismann, May 02 2006

Keywords

• nonn

Examples

			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
		

Links

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

Crossrefs

Cf. A117563, A117078, A118534.

Programs

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 *)

Extensions

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