cp's OEIS Frontend

A362266 Triangle read by rows: T(n,k) = LCM({p_j-1 : j=1..n})/(p_k-1) for prime p.

%I A362266 #26 Jul 15 2023 05:44:38
%S A362266 1,2,1,4,2,1,12,6,3,2,60,30,15,10,6,60,30,15,10,6,5,240,120,60,40,24,
%T A362266 20,15,720,360,180,120,72,60,45,40,7920,3960,1980,1320,792,660,495,
%U A362266 440,360,55440,27720,13860,9240,5544,4620,3465,3080,2520,1980
%N A362266 Triangle read by rows: T(n,k) = LCM({p_j-1 : j=1..n})/(p_k-1) for prime p.
%H A362266 Michael De Vlieger, <a href="/A362266/b362266.txt">Table of n, a(n) for n = 1..11325</a> (rows n = 1..150, flattened)
%F A362266 T(n,1) = A058254(n), T(n,k) = A058254(n)/A006093(k).
%e A362266 First 10 rows of the triangle:
%e A362266    1:      1
%e A362266    2:      2      1
%e A362266    3:      4      2      1
%e A362266    4:     12      6      3     2
%e A362266    5:     60     30     15    10     6
%e A362266    6:     60     30     15    10     6     5
%e A362266    7:    240    120     60    40    24    20    15
%e A362266    8:    720    360    180   120    72    60    45    40
%e A362266    9:   7920   3960   1980  1320   792   660   495   440   360
%e A362266   10:  55440  27720  13860  9240  5544  4620  3465  3080  2520  1980
%e A362266   ...
%t A362266 nn = 10; Array[Set[s[#], Prime[#] - 1] &, nn + 1]; Flatten@ Table[Table[#/s[k], {k, n}] &[LCM @@ Array[s, n]], {n, nn}]
%o A362266 (PARI) row(n) = my(L=lcm(apply(p->p-1, primes(n)))); vector(n, k, L/(prime(k)-1)); \\ _Michel Marcus_, Jul 15 2023
%Y A362266 Cf. A006093, A058254.
%K A362266 nonn,tabl
%O A362266 1,2
%A A362266 _Michael De Vlieger_, Jul 10 2023