cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A127646 a(n) is the product of first n terms of sequence A127644.

This page as a plain text file.
%I A127646 #11 Sep 21 2017 04:23:02
%S A127646 3,18,162,2916,34992,559872,4478976,107495424,3439853568,116955021312,
%T A127646 3508650639360,168415230689280,2526228460339200,2526228460339200,
%U A127646 35367198444748800,70734396889497600,1202484747121459200
%N A127646 a(n) is the product of first n terms of sequence A127644.
%C A127646 a(n) is divisible by A127645(n).
%H A127646 Michael De Vlieger, <a href="/A127646/b127646.txt">Table of n, a(n) for n = 1..449</a>
%t A127646 f[l_List] := Block[{k = 1, s = Plus @@ l, p = Times @@ l}, While[Or[MemberQ[l, k], Mod[k p, k + s] > 0], k++]; Append[l, k]]; FoldList[Times, Nest[f, {3}, 17]] (* _Michael De Vlieger_, Sep 20 2017, after _Ray Chandler_ at A127644 *)
%Y A127646 Cf. A127644, A127645.
%K A127646 nonn
%O A127646 1,1
%A A127646 _Leroy Quet_, Jan 22 2007
%E A127646 Extended by _Ray Chandler_, Jan 22 2007