|
| |
|
|
A067029
|
|
Exponent of least prime factor in prime factorization of n, a(1)=0.
|
|
14
| |
|
|
0, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 3, 2, 1, 1, 1, 5, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 4, 2, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 2, 6, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 4, 4, 1, 1, 2, 1, 1, 1, 3, 1, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
COMMENTS
| Even bisection is A001511: a(2n) = A007814(n) + 1. - Ralf Stephan, Jan 31 2004
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..10000
|
|
|
FORMULA
| a(n) = A124010(n,1). [Reinhard Zumkeller, Aug 27 2011]
A028233(n) = A020639(n)^a(n). - Reinhard Zumkeller, May 13 2006
|
|
|
EXAMPLE
| a(18) = a(2^1 * 3^2) = 1.
|
|
|
MATHEMATICA
| Join[{0}, Table[FactorInteger[n][[1, 2]], {n, 2, 100}]] (* From Harvey P. Dale, Oct 14 2011 *)
|
|
|
PROG
| Cf. A071178.
|
|
|
CROSSREFS
| Cf. A051903, A020639, A028233, A034684.
Sequence in context: A115568 A072909 A095691 * A087179 A088388 A070013
Adjacent sequences: A067026 A067027 A067028 * A067030 A067031 A067032
|
|
|
KEYWORD
| nonn,nice
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Feb 17 2002
|
| |
|
|
