login
Partial row products of table A027746, prime factors with repetition, reversed.
1

%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