OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 2 if and only if n is in A028983. - Amiram Eldar, Mar 24 2024
MATHEMATICA
Table[FactorInteger[DivisorSigma[1, n]][[1, 1]], {n, 90}] (* Harvey P. Dale, May 15 2011 *)
PROG
(PARI) A071189(n) = if(1==n, n, my(f = factor(sigma(n))); vecmin(f[, 1])); \\ Antti Karttunen, Jul 24 2017
(PARI) first(n) = {my(v = vector(n, i, 2), sq = List()); for(i=1, sqrtint(n), listput(sq, i^2); listput(sq, 2*i^2)); listsort(sq); v[1]=1; for(i=2, #sq, if(sq[i]>n, break); v[sq[i]] = factor(sigma(sq[i]))[, 1]~[1]); v} \\ David A. Corneth, Jul 24 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 15 2002
STATUS
approved