cp's OEIS Frontend

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

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