|
Search: id:A117873
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
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: A122869 A106535 A052368 this_sequence A076853 A136026 A033201
Adjacent sequences: A117870 A117871 A117872 this_sequence A117874 A117875 A117876
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Remi Eismann (reismann(AT)free.fr), May 02 2006
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), May 06 2006
|
|
|
Search completed in 0.002 seconds
|
