A071290 The sequence f(1), f(2), ... as defined in A067836.

1, 2, 6, 30, 210, 2730, 30030, 510510, 9699690, 223092870, 8254436190, 602573841870, 17474641414230, 541713883841130, 23293697005168590, 1840202063408318610, 97530709360640886330, 8095048876933193565390, 542368274754523968881130, 22237099264935482724126330

Offset

1,2

Links

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

Mathematica

Join[{f = 1}, a = 2; Table[f = f*a; a = NextPrime[f + 1] - f; f, {n, 2, 20}]] (* Jayanta Basu, Aug 10 2013 *)

Prog

(Perl) # Generate f(n) from B(n) sequence using the b067836.txt file:
perl -nE '/(\d+)\s+(\d+)/; $f[$n] = $f[$n-1]*$2; say "$n $f[$n]"; $n++; BEGIN { use Math::GMP qw/:constant/; $f[1]=1; $n=2; say "1 1"; }' b067836.txt
#  Dana Jacobsen, Feb 15 2015

Crossrefs

Cf. A067836.

Sequence in context: A336672 A046853 A136351 * A185693 A093449 A083002

Adjacent sequences: A071287 A071288 A071289 * A071291 A071292 A071293

Keyword

nonn

Author

Dean Hickerson, Jun 10 2002

Extensions

Two more terms from Jayanta Basu, Aug 10 2013

Status

approved