|
| |
|
|
A073482
|
|
Largest prime factor of the n-th squarefree number.
|
|
6
| |
|
|
1, 2, 3, 5, 3, 7, 5, 11, 13, 7, 5, 17, 19, 7, 11, 23, 13, 29, 5, 31, 11, 17, 7, 37, 19, 13, 41, 7, 43, 23, 47, 17, 53, 11, 19, 29, 59, 61, 31, 13, 11, 67, 23, 7, 71, 73, 37, 11, 13, 79, 41, 83, 17, 43, 29, 89, 13, 31, 47, 19, 97, 101, 17, 103, 7, 53, 107, 109, 11, 37, 113, 19, 23, 59, 17, 61, 41
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| a(n) = A006530(A005117(n)).
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
MAPLE
| issquarefree := proc(n::integer) local nf, ifa, lar; nf := op(2, ifactors(n)); for ifa from 1 to nops(nf) do lar := op(1, op(ifa, nf)); if op(2, op(ifa, nf)) >= 2 then RETURN(0); fi; od : RETURN(lar); end: printf("1, "); for n from 2 to 100 do lfa := issquarefree(n); if lfa > 0 then printf("%a, ", lfa); fi; od : - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 02 2006
|
|
|
PROG
| (Haskell)
a073482 = a006530 . a005117 -- Reinhard Zumkeller, Feb 04 2012
|
|
|
CROSSREFS
| Cf. A073481.
Sequence in context: A092386 A117369 A117366 * A107685 A161984 A072987
Adjacent sequences: A073479 A073480 A073481 * A073483 A073484 A073485
|
|
|
KEYWORD
| nonn,changed
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Aug 03 2002
|
|
|
EXTENSIONS
| More terms from Jason Earls (zevi_35711(AT)yahoo.com), Aug 06 2002
|
| |
|
|
