A103584 Numbers in A103543 not congruent to 3 mod 4.

62, 126, 190, 254, 318, 382, 446, 510, 574, 638, 702, 766, 830, 894, 958, 1021, 1022, 1086, 1150, 1214, 1278, 1342, 1406, 1470, 1534, 1598, 1662, 1726, 1790, 1854, 1918, 1982, 2045, 2046, 2110, 2174, 2238, 2302, 2366, 2430, 2494, 2558, 2622, 2686, 2750

Offset: 1

Author

Benoit Cloitre and Philippe Deléham, Mar 24 2005

Keywords

• nonn

Links

• David Applegate, Benoit Cloitre, Philippe Deléham and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [pdf, ps], J. Integer Seq. 8 (2005), no. 3, Article 05.3.6, 15 pp.

Programs

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 *)

Extensions

More terms from Robert G. Wilson v, Mar 26 2005