login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178387 Primes p such that q*p+-Mod(p,q) are primes, for q=7. 1
41, 419, 839, 1259, 1889, 2239, 3541, 4801, 5039, 5711, 6229, 7349, 7699, 7741, 9239, 10429, 10891, 11171, 11801, 12809, 13159, 14629, 15889, 16631, 16981, 17891, 18661, 18899, 20089, 21559, 21601, 22651, 22679, 23981, 24989, 25969, 26879 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

7*41=287+-6->primes,..

LINKS

Table of n, a(n) for n=1..37.

MATHEMATICA

q=7; lst={}; Do[p=Prime[n]; If[PrimeQ[q*p-Mod[p, q]]&&PrimeQ[q*p+Mod[p, q]], AppendTo[lst, p]], {n, 8!}]; lst

Select[Prime[Range[3000]], AllTrue[7#+{Mod[#, 7], -Mod[#, 7]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 13 2019 *)

CROSSREFS

Cf. A000040, A178383, A178385, A178386

Sequence in context: A124338 A008356 A190421 * A068849 A145293 A196807

Adjacent sequences:  A178384 A178385 A178386 * A178388 A178389 A178390

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, May 26 2010

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 20 15:10 EST 2021. Contains 340302 sequences. (Running on oeis4.)