login
A071290
The sequence f(1), f(2), ... as defined in A067836.
1
1, 2, 6, 30, 210, 2730, 30030, 510510, 9699690, 223092870, 8254436190, 602573841870, 17474641414230, 541713883841130, 23293697005168590, 1840202063408318610, 97530709360640886330, 8095048876933193565390, 542368274754523968881130, 22237099264935482724126330
OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Dean Hickerson, Jun 10 2002
EXTENSIONS
Two more terms from Jayanta Basu, Aug 10 2013
STATUS
approved