Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A071626
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A071626 Number of distinct exponents when n! is factorized as a product of primes. +0
2
0, 1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 8, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11 (list; graph; listen)
OFFSET

1,4

EXAMPLE

n=7,7!=5040=2.2.2.2.3.3.5.7, three different exponents arise:4,2 and 1; a(7)=3

MATHEMATICA

ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] Table[Length[Union[ep[w! ]]], {w, 1, 100}]

CROSSREFS

Cf. A051903, A051904, A071625.

Sequence in context: A112751 A091194 A061555 this_sequence A106457 A103128 A107320

Adjacent sequences: A071623 A071624 A071625 this_sequence A071627 A071628 A071629

KEYWORD

nonn

AUTHOR

Labos E. (labos(AT)ana.sote.hu), May 29 2002

page 1

Search completed in 0.005 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified July 25 07:41 EDT 2008. Contains 142293 sequences.


AT&T Labs Research