OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[PrimeNu[n] > 1 && PrimeOmega[n] - PrimeNu[n] == 1, 1, 0]; Array[a, 100] (* Amiram Eldar, Jan 05 2023 *)
PROG
(PARI) A359475(n) = (omega(n) > 1) && (bigomega(n) - omega(n) == 1); \\ From "isok" function given in A072357 by Michel Marcus, Jul 16 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 04 2023
STATUS
approved