login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181737 Partial products of A181103. 3
2, 6, 42, 546, 9282, 176358, 4056234, 117630786, 4822862226, 226674524622, 13373796952698, 1110025147073934, 98792238089580126, 9978016047047592726, 1067647717034092421682, 146267737233670661770434 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

a(n+1)-a(n) is divisible by 6 for n > 1.

LINKS

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

EXAMPLE

First three terms of A181103 are 2, 3, 7, so a(3) = 2*3*7 = 42.

PROG

(MAGMA) A181103:=function(n); S:=[2, 3]; if n le 2 then return S[n]; end if; p:=5; for k in [3..n] do while not IsPrime(Abs(S[k-2]+S[k-1]-p)) do p:=NextPrime(p); end while; Append(~S, p); if k eq n then return p; end if; p:=NextPrime(p); end for; end function; A181737:=function(n); S:=[ A181103(k): k in [1..n] ]; T:=[ m eq 1 select S[1] else Self(m-1)*S[m]: m in [1..n] ]; return T[n]; end function; [ A181737(n): n in [1..20] ]; // Klaus Brockhaus, Dec 19 2010

CROSSREFS

Cf. A181103.

Sequence in context: A115974 A179330 A066864 * A116896 A061062 A270141

Adjacent sequences:  A181734 A181735 A181736 * A181738 A181739 A181740

KEYWORD

nonn,easy

AUTHOR

Giovanni Teofilatto

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 1 05:33 EDT 2020. Contains 333155 sequences. (Running on oeis4.)