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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A200214 Ordered factorizations of n with 3 distinct parts, all > 1. 4
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 6, 0, 0, 0, 6, 0, 6, 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 6, 0, 6, 0, 0, 0, 18, 0, 0, 0, 6, 0, 6, 0, 0, 0, 6, 0, 18, 0, 0, 0, 0, 0, 6, 0, 12, 0, 0, 0, 18 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,24

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..1001

Benny Chor, Paul Lemke, Ziv Mador, On the number of ordered factorizations of natural numbers, Discrete Mathematics, Vol. 214[1], 2000, p. 123-133.

Arnold Knopfmacher and Michael Mays, Ordered and Unordered Factorizations of Integers, The Mathematica Journal, Vol 10 (1), 2006.

FORMULA

a(n) = 6*A122180(n). - Antti Karttunen, Jul 08 2017

EXAMPLE

a(24) = 6 = card({{2,3,4}, {2,4,3}, {3,2,4}, {3,4,2}, {4,2,3}, {4,3,2}}.

a(64) = 6 = card({{2,4,8}, {2,8,4}, {4,2,8}, {4,8,2}, {8,2,4}, {8,4,2}}.

MATHEMATICA

OrderedFactorizations[1] = {{}}; OrderedFactorizations[n_?PrimeQ] := {{n}}; OrderedFactorizations[n_] := OrderedFactorizations[n] = Flatten[Function[d, Prepend[#, d] & /@ OrderedFactorizations[n/d]] /@ Rest[Divisors[n]], 1]; a[n_] := With[{of3 = Sort /@ Select[OrderedFactorizations[n], Length[#] == 3 && Length[# // Union] == 3 &] // Union}, Length[Permutations /@ of3 // Flatten[#, 1] &]];  Table[a[n], {n, 1, 84}] (* Jean-Fran├žois Alcover, Jul 02 2013, copied and adapted from The Mathematica Journal *)

PROG

(PARI) A200214(n) = { my(s=0); fordiv(n, x, if((x>1)&&(x<n), for(y=x+1, n-1, for(z=y+1, n-1, if(x*y*z==n, s++))))); (6*s); }; \\ (After A122180, still quite naive) - Antti Karttunen, Jul 09 2017

CROSSREFS

Cf. A025487, A122180, A200213.

Sequence in context: A173453 A102638 A187794 * A294887 A005872 A035322

Adjacent sequences:  A200211 A200212 A200213 * A200215 A200216 A200217

KEYWORD

nonn

AUTHOR

Peter Luschny, Nov 14 2011

EXTENSIONS

Description clarified, term a(0) removed and a second example added by Antti Karttunen, Jul 09 2017

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 April 22 11:46 EDT 2019. Contains 322330 sequences. (Running on oeis4.)