login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073481 Least prime factor of the n-th squarefree number. 8

%I #25 Dec 17 2023 03:08:10

%S 1,2,3,5,2,7,2,11,13,2,3,17,19,3,2,23,2,29,2,31,3,2,5,37,2,3,41,2,43,

%T 2,47,3,53,5,3,2,59,61,2,5,2,67,3,2,71,73,2,7,2,79,2,83,5,2,3,89,7,3,

%U 2,5,97,101,2,103,3,2,107,109,2,3,113,2,5,2,7,2,3,127,3,2,131,7,2,137,2,139,3,2,11,5

%N Least prime factor of the n-th squarefree number.

%H Reinhard Zumkeller, <a href="/A073481/b073481.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A020639(A005117(n)).

%F a(n) = A265668(n,1). - _Reinhard Zumkeller_, Dec 13 2015

%t a = Select[Range[300], SquareFreeQ[#]&]; Table[FactorInteger[a[[n]]][[1,1]], {n, Length[a]}] (* _Vladimir Joseph Stephan Orlovsky_, Jan 30 2012 *)

%o (Haskell)

%o a073482 = a020639 . a005117 -- _Reinhard Zumkeller_, Feb 04 2012

%o (PARI) apply(x->(if (x==1,1, vecmin(factor(x)[,1]))), select(issquarefree, [1..150])) \\ _Michel Marcus_, Dec 17 2023

%Y Cf. A073482.

%Y Cf. A005117, A020639, A265668.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Aug 03 2002

%E More terms from _Jason Earls_, Aug 06 2002

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 11:45 EDT 2024. Contains 371278 sequences. (Running on oeis4.)