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

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, 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, 29, 5, 15, 30, 31, 2, 4, 8, 16, 32, 11, 33, 17, 34, 7, 35, 3, 9, 18, 36, 37

Offset: 1

Author

Michael De Vlieger, Apr 28 2017

Keywords

• nonn
• easy
• tabf

Comments

T(n,1) = A006530(n); T(n,A001222(n)) = n.

Examples

			.   n |   T(n,*)       |   A027746(n,*)
. ----+----------------+----------------
.   1 |   1            |   1
.   2 |   2            |   2
.   3 |   3            |   3
.   4 |   2, 4         |   2, 2
.   5 |   5            |   5
.   6 |   3, 6         |   2, 3
.   7 |   7            |   7
.   8 |   2, 4, 8      |   2, 2, 2
.   9 |   3, 9         |   3, 3
.  10 |   5, 10        |   2, 5
.  11 |   11           |   11
.  12 |   3, 6, 12     |   2, 2, 3
.  13 |   13           |   13
.  14 |   7, 14        |   2, 7
.  15 |   5, 15        |   3, 5
.  16 |   2, 4, 8, 16  |   2, 2, 2, 2
.  17 |   17           |   17
.  18 |   3, 9, 18     |   2, 3, 3
.  19 |   19           |   19
.  20 |   5, 10, 20    |   2, 2, 5
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..15568 (rows 1 <= n <= 5000).

Crossrefs

Cf. A001222, A006530, A027746, A265110.

Programs

Mathematica

Table[FoldList[Times, Reverse@ Flatten[FactorInteger[n] /. {p_, e_} /; e > 0 :> ConstantArray[p, e]]], {n, 37}] // Flatten (* Michael De Vlieger, Apr 28 2017 *)