A071290 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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