OFFSET
0,2
COMMENTS
a(14) <= 314944159743.
a(18) > 10^14.5; a(19) = 275892612890624; a(20) > 10^14.5. - Martin Ehrenstein, Dec 11 2022
MATHEMATICA
e[n_] := PrimeOmega[n] - PrimeNu[n]; a[n_] := Module[{k = 1}, While[e[k] != n || e[k + 1] != n, k++]; k]; Array[a, 10, 0]
PROG
(PARI) e(n) = {my(f = factor(n)); bigomega(f) - omega(f)};
a(n) = {my(k=1); while(e(k) != n || e(k+1) !=n , k++); k};
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Dec 02 2022
EXTENSIONS
a(14)-a(16) from Martin Ehrenstein, Dec 04 2022
a(17) from Martin Ehrenstein, Dec 09 2022
STATUS
approved