login
This site is supported by donations to The OEIS Foundation.

 

Logo

The OEIS is looking to hire part-time people to help edit core sequences, upload scanned documents, process citations, fix broken links, etc. - Neil Sloane, njasloane@gmail.com

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A117873 Primes for which the level as defined in A117563 is 3. 5
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; refs; listen; history; text; internal format)
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 * A271779 A271840 A076853

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified May 26 09:12 EDT 2017. Contains 287093 sequences.