login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A035306 List prime factors of each number in order (each prime factor is followed by its power). Start with 1 = {1,1}. 1
1, 1, 2, 1, 3, 1, 2, 2, 5, 1, 2, 1, 3, 1, 7, 1, 2, 3, 3, 2, 2, 1, 5, 1, 11, 1, 2, 2, 3, 1, 13, 1, 2, 1, 7, 1, 3, 1, 5, 1, 2, 4, 17, 1, 2, 1, 3, 2, 19, 1, 2, 2, 5, 1, 3, 1, 7, 1, 2, 1, 11, 1, 23, 1, 2, 3, 3, 1, 5, 2, 2, 1, 13, 1, 3, 3, 2, 2, 7, 1, 29, 1, 2, 1, 3, 1, 5, 1, 31, 1, 2, 5, 3, 1, 11, 1, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

This entry also serves to show how to factor numbers in various languages.

Memo: in Maple, use ifactors, not ifactor!

Length of n-th row = 2*A001221(n). - Reinhard Zumkeller, Jan 10 2013

LINKS

Reinhard Zumkeller, Rows n = 1..1000 of triangle, flattened

FORMULA

For 1 <= k <= A001221(n): T(n,2*k-1) = A027748(n,k), T(n,2*k) = A124010(n,k). - Reinhard Zumkeller, Jan 10 2013

EXAMPLE

1 = {1,1}, 2 = {2,1}, 3 = {3,1}, 4 = {2,2}, 5 = {5,1}, 6 = {2,1,3,1}, ...

MAPLE

ListTools[Flatten]([[[1, 1]], seq(op(2..-1, ifactors(n)), n=2..34)], 2); # Peter Luschny, Sep 02 2018

MATHEMATICA

Flatten[ Array[ FactorInteger[ # ]&, 40 ] ]

PROG

(Haskell)

import Data.List (transpose)

a035306 n k = a035306_row n !! (k-1)

a035306_row 1 = [1, 1]

a035306_row n = concat $ transpose [a027748_row n, a124010_row n]

a035306_tabf = map a035306_row [1..]

-- Reinhard Zumkeller, Jan 10 2013

(MAGMA) [ Factorization(n) : n in [1..120]];

(PARI) for (n=2, 256, print(factor(n))) [There has to be a better PARI code than this]

(PARI) upto(n) = {n = max(n, 1); my(res = List([1, 1])); for(i = 2, n, f = factor(i); for(j = 1, #f~, listput(res, f[j, 1]); listput(res, f[j, 2]))); res} \\ David A. Corneth, Sep 02 2018

CROSSREFS

Cf. A008474 (row sums, apart from initial row).

Cf. A001221, A001222, A027748, A124010.

Sequence in context: A029331 A037269 A124579 * A101691 A205379 A238881

Adjacent sequences:  A035303 A035304 A035305 * A035307 A035308 A035309

KEYWORD

nonn,tabf

AUTHOR

N. J. A. Sloane.

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 17 14:12 EST 2019. Contains 319225 sequences. (Running on oeis4.)