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!)
A340564 Primes p such that the sum of (p mod q) for primes q < p is prime. 1
5, 13, 23, 113, 137, 151, 163, 251, 317, 461, 479, 487, 521, 661, 691, 719, 887, 907, 991, 1129, 1213, 1453, 1901, 1949, 1987, 2053, 2141, 2243, 2333, 2399, 2549, 2797, 3041, 3049, 3119, 3221, 3433, 3457, 3527, 3529, 3691, 3697, 3911, 4013, 4241, 4649, 4817, 5099, 5407, 5413, 5689, 5693, 6217 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

a(n) = prime(m) if A033955(m) is prime.

LINKS

Robert Israel, Table of n, a(n) for n = 1..4000

EXAMPLE

a(3) = 23 is a term because (23 mod 2) + ... + (23 mod 19) = 1+2+3+2+1+10+6+4 = 29 is prime.

MAPLE

f:= proc(n) local i, p;

  p:= ithprime(n);

  add(p mod ithprime(i), i=1..n-1)

end proc:

map(ithprime, select(t -> isprime(f(t)), [$1..2000]));

PROG

(PARI) isok(p) = if (isprime(p), my(s=0); forprime(q=2, precprime(p-1), s += p % q); isprime(s); ); \\ Michel Marcus, Jan 11 2021

CROSSREFS

Cf. A033955.

Sequence in context: A075829 A119248 A114998 * A140090 A271937 A121511

Adjacent sequences:  A340561 A340562 A340563 * A340565 A340566 A340567

KEYWORD

nonn

AUTHOR

J. M. Bergot and Robert Israel, Jan 11 2021

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 August 3 03:52 EDT 2021. Contains 346435 sequences. (Running on oeis4.)