|
%I
%S 4,6,9,20,28,30,42,44,45,52,63,66,68,76,78,92,99,100,102,114,116,117,
%T 124,138,140,148,150,153,164,171,172,174,186,188,196,207,210,212,220,
%U 222,225,236,244,246,258,260,261,268,279,282,284,292,294,308,315,316
%N Numbers n such that A169611(n)=2.
%t f[n_] := Plus @@ Last /@ Select[ FactorInteger@ n, 1 < #[[1]] < 4 &]; Select[ Range@ 317, f@# == 2 &] [From _Robert G. Wilson v_, Dec 19 2009] - Extended beyond 150 by _R. J. Mathar_, Dec 09 2009
%Y Cf. A169611.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Dec 04 2009
%E Extended beyond 150 by _R. J. Mathar_, Dec 09 2009
|
