A117183 - OEIS

A117183

a(n) = smallest prime dividing n-th nonsquarefree positive integer.

2, 2, 3, 2, 2, 2, 2, 2, 5, 3, 2, 2, 2, 2, 2, 3, 2, 7, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 11, 2, 5, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 2, 13, 3, 2, 5, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, 5, 2, 2, 2, 2, 2, 3, 2, 2, 2

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

FORMULA

A020639(A013929(n)).

EXAMPLE

12, the 4th nonsquarefree positive integer, is 2^2 * 3. 2 is the smallest prime dividing 12. So a(4) = 2.

MAPLE

with(numtheory): a:=proc(n) if mobius(n)=0 then op(1, factorset(n)) fi end: seq(a(n), n=1..345); # Emeric Deutsch

MATHEMATICA

Needs["NumberTheory`NumberTheoryFunctions`"]; FactorInteger[ # ][[1, 1]] & /@ Select[ Range@252, !SquareFreeQ@# &] (* Robert G. Wilson v *)

FactorInteger[#][[1, 1]]&/@DeleteCases[Range[300], _?SquareFreeQ] (* Harvey P. Dale, Jun 02 2017 *)

CROSSREFS

Cf. A115074, A115090, A013929, A020639.

Sequence in context: A370372 A375760 A145989 * A352503 A071187 A329614

Adjacent sequences: A117180 A117181 A117182 * A117184 A117185 A117186

KEYWORD

nonn

AUTHOR

Leroy Quet, Mar 01 2006

EXTENSIONS

More terms from Emeric Deutsch and Robert G. Wilson v, Mar 06 2006

STATUS

approved