|
%I #25 Nov 08 2023 07:51:46
%S 1,2,3,2,5,3,2,7,2,3,5,2,11,3,2,13,7,2,5,3,2,17,3,2,19,5,2,7,3,11,2,
%T 23,3,2,5,13,2,3,7,2,29,5,3,2,31,2,11,3,17,2,7,5,3,2,37,19,2,13,3,5,2,
%U 41,7,3,2,43,11,2,5,3,23,2,47,3,2,7,5,2,17,3,13,2,53,3,2,11,5,7,2,19,3,29,2,59,5,3,2,61,31,2
%N Irregular triangle T(n,k) read by rows: first row is 1, n-th row (n > 1) lists distinct prime factors of n in decreasing order.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DistinctPrimeFactors.html">Distinct Prime Factors</a>
%F T(n,1) = A006530(n).
%F T(n,A001221(n)) = A020639(n).
%e The irregular triangle begins:
%e 1: {1}
%e 2: {2}
%e 3: {3}
%e 4: {2}
%e 5: {5}
%e 6: {3, 2}
%e 7: {7}
%e 8: {2}
%e 9: {3}
%e 10: {5, 2}
%e 11: {11}
%e 12: {3, 2}
%t Flatten[Table[Reverse[FactorInteger[n][[All, 1]]], {n, 1, 62}]]
%o (Haskell)
%o a302170 n k = a302170_tabl !! (n-1) !! (k-1)
%o a302170_tabl = map a302170_row [1..]
%o a302170_row = reverse . a027748_row
%o -- _Brian Chess_, Sep 19 2022
%Y Cf. A001221 (row lengths), A006530, A008472 (row sums), A020639, A027746, A027748 (another version), A027750, A056538, A085307, A238689.
%K nonn,tabf
%O 1,2
%A _Ilya Gutkovskiy_, Apr 02 2018
|
