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
Keywords
Examples
p(1) = 2, so a(1) = p(0*p(1)) = 2.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Programs
-
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}] -
PARI
p(n) = nextprime(n+1); a(n) = p((n-1)*p(n)); \\ Michel Marcus, Jan 23 2025