OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
A025474(a(n)) = 1. - Reinhard Zumkeller, May 01 2015
From Ridouane Oudra, Oct 18 2020: (Start)
a(n) = A027883(n) + 1;
MATHEMATICA
a[n_] := PrimeOmega[LCM @@ Range@Prime@n] + 1; Array[a, 100] (* Amiram Eldar, Dec 02 2018 *)
PROG
(PARI) lista(nn) = my(powpr = select((i->((omega(i)==1) || (i==1))), [1..nn])); for (i = 1, #powpr, if (isprime(powpr[i]), print1(i, ", ")); ); \\ Michel Marcus, Jun 03 2021
(Haskell)
a024620 n = a024620_list !! (n-1)
a024620_list = filter ((== 1) . a025474) [1..]
-- Reinhard Zumkeller, May 01 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved