|
Search: id:A061395
|
|
|
| A061395 |
|
Let p be the largest prime factor of n; if p is the k-th prime then set a(n) = k; a(1) = 0 by convention. |
|
+0
17
|
|
| 0, 1, 2, 1, 3, 2, 4, 1, 2, 3, 5, 2, 6, 4, 3, 1, 7, 2, 8, 3, 4, 5, 9, 2, 3, 6, 2, 4, 10, 3, 11, 1, 5, 7, 4, 2, 12, 8, 6, 3, 13, 4, 14, 5, 3, 9, 15, 2, 4, 3, 7, 6, 16, 2, 5, 4, 8, 10, 17, 3, 18, 11, 4, 1, 6, 5, 19, 7, 9, 4, 20, 2, 21, 12, 3, 8, 5, 6, 22, 3, 2, 13, 23, 4, 7, 14, 10, 5, 24, 3, 6, 9, 11, 15
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Records occur at the primes. - Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 30 2007.
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
FORMULA
|
A000040(a(n)) = A006530(n); a(n) = A049084(A006530(n)). - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 22 2003
|
|
EXAMPLE
|
a(20)=3 since the largest prime factor of 20 is 5, which is the 3rd prime.
|
|
MATHEMATICA
|
Insert[Table[PrimePi[FactorInteger[n][[ -1]][[1]]], {n, 2, 120}], 0, 1] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 11 2006
f[n_] := PrimePi[ FactorInteger@n][[ -1, 1]]; Array[f, 94] (* Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 30 2007 *)
|
|
PROGRAM
|
(PARI) { for (n=1, 1000, if (n==1, a=0, f=factor(n)~; p=f[1, length(f)]; a=primepi(p)); write("b061395.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 22 2009]
|
|
CROSSREFS
|
Cf. A055396, A061394, A133674.
Sequence in context: A135550 A035491 A108230 this_sequence A156061 A124172 A058933
Adjacent sequences: A061392 A061393 A061394 this_sequence A061396 A061397 A061398
|
|
KEYWORD
|
easy,nice,nonn
|
|
AUTHOR
|
Henry Bottomley (se16(AT)btinternet.com), Apr 30 2001
|
|
EXTENSIONS
|
Definition reworded by N. J. A. Sloane (njas(AT)research.att.com), Jul 01 2008
|
|
|
Search completed in 0.003 seconds
|
