A391804 a(n) = least prime greater than prime(n)*prime(n+1).

7, 17, 37, 79, 149, 223, 331, 439, 673, 907, 1151, 1523, 1777, 2027, 2503, 3137, 3607, 4091, 4759, 5189, 5779, 6563, 7393, 8641, 9803, 10427, 11027, 11677, 12323, 14369, 16649, 17957, 19051, 20717, 22501, 23719, 25601, 27239, 28901, 30971, 32401, 34583

Offset

1,1

Links

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

Formula

a(n) = A151800(A006094(n)).

Example

7 is the least prime greater than 2*3, so a(1)=7.

Maple

seq(nextprime(ithprime(k)*ithprime(k+1)), k=1..100); # Robert Israel, Jan 05 2026

Mathematica

Table[NextPrime[Prime[n]*Prime[n + 1]], {n, 1, 50}]

Crossrefs

Cf. A000040, A006094, A151800, A391805.

Sequence in context: A090147 A348560 A338030 * A211476 A155007 A214634

Adjacent sequences: A391801 A391802 A391803 * A391805 A391806 A391807

Keyword

nonn,easy

Author

Clark Kimberling, Jan 04 2026

Status

approved