|
%I #21 Sep 04 2018 03:35:11
%S 1,2,3,6,5,15,105,70,1,5,33,55,65,273,1001,1430,17,17,969,4845,1785,
%T 6545,37145,81719,17,1105,3553,969969,672945,81345,955049953,66786710,
%U 33,561,385,6545,6105,657305,15873,8544965,1353,268345,61705,329681,650793,24173705985,3065857,250538768183,561,33,21945
%N Leading diagonal of triangle in A222310.
%C See A222313 for the numbers that appear in this sequence.
%H N. J. A. Sloane, <a href="/A222311/b222311.txt">Table of n, a(n) for n = 1..500</a>
%H C. Cobeli and A. Zaharescu, <a href="http://rms.unibuc.ro/bulletin/pdf/56-1/PromenadePascalPart1.pdf">Promenade around Pascal Triangle-Number Motives</a>, Bull. Math. Soc. Sci. Math. Roumanie, Tome 56(104) No. 1, 2013, 73-98.
%H Cristian Cobeli, Alexandru Zaharescu, <a href="http://arxiv.org/abs/1411.1334">A game with divisors and absolute differences of exponents</a>, arXiv:1411.1334 [math.NT], 2014 (see page 12).
%H Cristian Cobeli, Mihai Prunescu, Alexandru Zaharescu, <a href="http://arxiv.org/abs/1511.04315">A growth model based on the arithmetic Z-game</a>, arXiv:1511.04315 [math.NT], 2015.
%t Join[r = {1}, Table[Reverse[r = FoldList[#1*#2/GCD[#1, #2]^2&, n, r]], {n, 2, 100}][[All, 1]]] (* _Jean-François Alcover_, Sep 04 2018, after _Ivan Neretin_ in A222310 *)
%Y Cf. A222310, A222313.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Feb 16 2013
|
