|
Search: id:A073482
|
|
|
| A073482 |
|
Largest factor of the n-th square-free number. |
|
+0
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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
a(n) = A006530(A005117(n)).
|
|
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
|
|
CROSSREFS
|
Cf. A073481.
Sequence in context: A092386 A117369 A117366 this_sequence A107685 A161984 A072987
Adjacent sequences: A073479 A073480 A073481 this_sequence A073483 A073484 A073485
|
|
KEYWORD
|
nonn
|
|
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
|
|
|
Search completed in 0.002 seconds
|
