|
%I #11 Feb 20 2015 01:09:07
%S 1,2,6,30,210,2730,30030,510510,9699690,223092870,8254436190,
%T 602573841870,17474641414230,541713883841130,23293697005168590,
%U 1840202063408318610,97530709360640886330,8095048876933193565390,542368274754523968881130,22237099264935482724126330
%N The sequence f(1), f(2), ... as defined in A067836.
%t Join[{f = 1}, a = 2; Table[f = f*a; a = NextPrime[f + 1] - f; f, {n, 2, 20}]] (* _Jayanta Basu_, Aug 10 2013 *)
%o (Perl) # Generate f(n) from B(n) sequence using the b067836.txt file:
%o 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
%o # _Dana Jacobsen_, Feb 15 2015
%Y Cf. A067836.
%K nonn
%O 1,2
%A _Dean Hickerson_, Jun 10 2002
%E Two more terms from _Jayanta Basu_, Aug 10 2013
|
