OFFSET
1,1
LINKS
MATHEMATICA
f[n_] := Block[{k = 1, s = 0, l = Max[2, Floor[Log[2, n + 1] + 2]]}, While[k < l, If[ Mod[n + k, 2^k] == 0, s = s + 2^k]; k++ ]; s]; Select[ Complement[ Range[2750], Select[ Range[11000], f[ # ] == 0 &]/4], Mod[ #, 4] != 3 &] (* Robert G. Wilson v, Mar 26 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre and Philippe Deléham, Mar 24 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 26 2005
STATUS
approved