A030641 a(1) = 6; for n > 1, a(n) = product of next 2 primes after a(n-1).

6, 77, 6557, 43112347, 1858675670994257, 3454675249946148511864052376019, 11934781082590483693525046199489720199194471433440678070422853

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..11

Example

The 2 primes after 77 are 79, 83, so next term is 79*83 = 6557.

Maple

A030641 := proc(n)
    option remember ;
    if n = 1 then
        6;
    else
        A030661(procname(n-1)) ;
    end if;
end proc:
seq(A030641(n), n=1..6) ;  # R. J. Mathar, Aug 09 2019

Mathematica

NestList[Times @@ NextPrime[#, {1, 2}] &, 6, 7] (* Paolo Xausa, Sep 30 2025 *)

Crossrefs

Cf. A030661, A030642.

Sequence in context: A355764 A301834 A366540 * A116280 A134788 A167498

Adjacent sequences: A030638 A030639 A030640 * A030642 A030643 A030644

Keyword

nonn

Author

N. J. A. Sloane

Status

approved