%I #10 Feb 11 2021 01:20:27
%S 4,7,13,15,21,22,23,24,40,49,50,51,52,53,54,57,64,65,66,67,68,73,74,
%T 79,80,94,95,96,99,100,101,102,111,112,122,123,124,127,134,135,136,
%U 137,138,145,146,147,148,149,150,159,160,172,173,174,177,178,179,180,181,182
%N Numbers k such that A074753(k) == (2,4) (mod 6).
%p A074753 := proc(n) option remember ; local a,k ; a := 0 ; for k from 1 to n do if numtheory[sigma](k) < n then a := a+1 ; end if; end do ; a ; end proc: isA175091 := proc(n) return ( (A074753(n) mod 6 )in {2,4}) ; end proc ; for n from 1 to 300 do if isA175091(n) then printf("%d,",n) ; end if; end do ; # _R. J. Mathar_, Feb 08 2010
%Y Cf. A074753.
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Jan 29 2010
%E Corrected by _R. J. Mathar_, Feb 08 2010