login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181938 Isolated primes = 1 mod 6: sandwiched by primes = 5 mod 6. 2
7, 13, 19, 43, 97, 103, 109, 127, 139, 181, 193, 229, 241, 283, 307, 313, 349, 397, 409, 421, 457, 463, 487, 499, 643, 691, 709, 769, 787, 811, 823, 829, 853, 859, 877, 883, 907, 919, 937, 967, 1021, 1051, 1093, 1153, 1171, 1279, 1303, 1423, 1429, 1447, 1483 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Primes p(m) = 1 mod 6 such that both p(m-1) and p(m+1) are congruent to 5 mod 6.
Corresponding indices m are 4, 6, 8, 14, 25, 27, 29, 31 (A181978).
Note that values of d = p(m+1) - p(m-1) are multiples of 6.
LINKS
EXAMPLE
7 = p(4) = 1 mod 6 and both p(3) = 5 and p(5) = 11 are congruent to 5 mod 6,
13 = p(6) = 1 mod 6 and both p(5) = 11 and p(7) = 17 are congruent to 5 mod 6,
43 = p(14) = 1 mod 6 and both p(13) = 41 and p(15) = 47 are congruent to 5 mod 6.
MATHEMATICA
Select[Prime[Range[2, 300]], Mod[#, 6] == 1 && Mod[NextPrime[#, -1], 6] == 5 && Mod[NextPrime[#, 1], 6] == 5 &] (* T. D. Noe, Apr 04 2012 *)
Transpose[Select[Partition[Prime[Range[250]], 3, 1], Mod[#[[1]], 6] == Mod[#[[3]], 6] == 5&&Mod[#[[2]], 6]==1&]][[2]] (* Harvey P. Dale, Sep 17 2012 *)
CROSSREFS
Sequence in context: A249381 A040096 A358322 * A073648 A298737 A109558
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 03 2012
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 12:26 EDT 2024. Contains 371254 sequences. (Running on oeis4.)