login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073482 Largest prime factor of the n-th squarefree number. 10
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; text; internal format)
OFFSET

1,2

COMMENTS

a(n) = A006530(A005117(n)).

a(n) = A265668(n, A001221(n)). - Reinhard Zumkeller, Dec 13 2015

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, Apr 02 2006

MATHEMATICA

FactorInteger[#][[-1, 1]]& /@ Select[Range[100], SquareFreeQ] (* Jean-Fran├žois Alcover, Feb 01 2018 *)

PROG

(Haskell)

a073482 = a006530 . a005117  -- Reinhard Zumkeller, Feb 04 2012

(PARI) do(x)=my(v=List([1])); forfactored(n=2, x\1, if(vecmax(n[2][, 2])==1, listput(v, vecmax(n[2][, 1])))); Vec(v) \\ Charles R Greathouse IV, Nov 05 2017

CROSSREFS

Cf. A073481, A001221, A005117, A006530, A265668.

Sequence in context: A117369 A117366 A341643 * A318411 A225680 A107685

Adjacent sequences:  A073479 A073480 A073481 * A073483 A073484 A073485

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Aug 03 2002

EXTENSIONS

More terms from Jason Earls, Aug 06 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 13 21:24 EDT 2021. Contains 342941 sequences. (Running on oeis4.)