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,2

Comments

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

Links

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

Example

.   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

Mathematica

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

Crossrefs

Cf. A001222, A006530, A027746, A265110.

Sequence in context: A286533 A172520 A290094 * A285714 A161908 A026358

Adjacent sequences: A285901 A285902 A285903 * A285905 A285906 A285907

Keyword

nonn,easy,tabf

Author

Michael De Vlieger, Apr 28 2017

Status

approved