A278484 - OEIS

%I #27 Jan 02 2023 12:30:52

%S 0,2,6,12,18,26,38,48,62,78,90,108,132,146,180,206,222,252,288,306,

%T 348,386,398,458,480,528,566,612,648,708,762,806,842,926,948,1008,

%U 1092,1110,1188,1260,1320,1358,1470,1482,1578,1692,1718,1806,1898,1932,2022,2160,2186,2268,2366,2478,2532,2702,2738,2798,2966,3018

%N Main diagonal of A278482.

%H Antti Karttunen, <a href="/A278484/b278484.txt">Table of n, a(n) for n = 0..10000</a>

%H D. Wilson et al., <a href="http://list.seqfan.eu/oldermail/seqfan/2016-November/thread.html">Interesting sequence</a>, SeqFan list, Nov. 2016

%H <a href="/index/Si#sieve">Index entries for sequences generated by sieves</a>

%F By definition, a(n) = A278482(n,n).

%F a(n) = A000960(n + 1) - 1.

%F a(n) = 2*A073359(n). [Observed by _Arie Groeneveld_ on SeqFan list, Nov 22 2016.] [Conjectural, true for n <= 2000 _David W. Wilson_, Nov 23 2016]

%t a[n_]:= Fold[Floor@Times@##&,Prepend[Table[(k + 1)/k, {k, n, 1, -1}], n]] (* _Ethan Beihl_, Nov 29 2016 *)

%Y Cf. A000960, A073359.

%Y Main diagonal of A278482 (and A278483).

%Y Partial sums of A278484.

%K nonn

%O 0,2

%A _Antti Karttunen_, Nov 23 2016 after _David W. Wilson_'s posting on SeqFan list Nov 22 2016