A380329 a(n) = A151800((n-1)*A151800(n)).

2, 2, 5, 11, 17, 29, 37, 67, 79, 89, 101, 131, 149, 211, 223, 239, 257, 307, 331, 419, 439, 461, 487, 641, 673, 701, 727, 757, 787, 877, 907, 1117, 1151, 1187, 1223, 1259, 1297, 1481, 1523, 1559, 1601, 1721, 1777, 1979, 2027, 2069, 2129, 2441, 2503, 2549, 2609

Offset

0,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..10000

Example

p(1) = 2, so a(1) = p(0*p(1)) = 2.

Maple

seq(nextprime((n-1)*nextprime(n)), n=0..100); # Robert Israel, Jan 23 2025

Mathematica

Table[NextPrime[(n-1)*NextPrime[n]], {n, 0, 80}]

Prog

(PARI) p(n) = nextprime(n+1);
a(n) = p((n-1)*p(n)); \\ Michel Marcus, Jan 23 2025

Crossrefs

Cf. A000040, A151800, A378135, A379405.

Sequence in context: A208864 A392560 A259828 * A366094 A104080 A375317

Adjacent sequences: A380326 A380327 A380328 * A380330 A380331 A380332

Keyword

nonn

Author

Clark Kimberling, Jan 21 2025

Status

approved