OFFSET
1,1
COMMENTS
Numbers n such that A046072(n) = 5.
MATHEMATICA
A046072[n_] := Which[n == 1 || n == 2, 1,
OddQ[n], PrimeNu[n],
EvenQ[n] && !Divisible[n, 4], PrimeNu[n] - 1,
Divisible[n, 4] && !Divisible[n, 8], PrimeNu[n],
Divisible[n, 8], PrimeNu[n] + 1];
Select[Range[10^4], A046072[#] == 5&] (* Jean-François Alcover, Dec 22 2021, after Geoffrey Critzer in A046072 *)
PROG
(PARI) for(n=1, 10^4, my(t=#(znstar(n)[2])); if(t==5, print1(n, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Joerg Arndt, May 05 2016
STATUS
approved