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
KEYWORD
nonn
AUTHOR
Dean Hickerson, Jun 10 2002
EXTENSIONS
Two more terms from Jayanta Basu, Aug 10 2013
STATUS
approved