|
%I #9 May 03 2017 21:57:04
%S 1,2,3,2,4,5,3,6,7,2,4,8,3,9,5,10,11,3,6,12,13,7,14,5,15,2,4,8,16,17,
%T 3,9,18,19,5,10,20,7,21,11,22,23,3,6,12,24,5,25,13,26,3,9,27,7,14,28,
%U 29,5,15,30,31,2,4,8,16,32,11,33,17,34,7,35,3,9,18,36,37
%N Partial row products of table A027746, prime factors with repetition, reversed.
%C T(n,1) = A006530(n); T(n,A001222(n)) = n.
%H Michael De Vlieger, <a href="/A285904/b285904.txt">Table of n, a(n) for n = 1..15568</a> (rows 1 <= n <= 5000).
%e . n | T(n,*) | A027746(n,*)
%e . ----+----------------+----------------
%e . 1 | 1 | 1
%e . 2 | 2 | 2
%e . 3 | 3 | 3
%e . 4 | 2, 4 | 2, 2
%e . 5 | 5 | 5
%e . 6 | 3, 6 | 2, 3
%e . 7 | 7 | 7
%e . 8 | 2, 4, 8 | 2, 2, 2
%e . 9 | 3, 9 | 3, 3
%e . 10 | 5, 10 | 2, 5
%e . 11 | 11 | 11
%e . 12 | 3, 6, 12 | 2, 2, 3
%e . 13 | 13 | 13
%e . 14 | 7, 14 | 2, 7
%e . 15 | 5, 15 | 3, 5
%e . 16 | 2, 4, 8, 16 | 2, 2, 2, 2
%e . 17 | 17 | 17
%e . 18 | 3, 9, 18 | 2, 3, 3
%e . 19 | 19 | 19
%e . 20 | 5, 10, 20 | 2, 2, 5
%t Table[FoldList[Times, Reverse@ Flatten[FactorInteger[n] /. {p_, e_} /; e > 0 :> ConstantArray[p, e]]], {n, 37}] // Flatten (* _Michael De Vlieger_, Apr 28 2017 *)
%Y Cf. A001222, A006530, A027746, A265110.
%K nonn,easy,tabf
%O 1,2
%A _Michael De Vlieger_, Apr 28 2017
|
