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,1

Links

Table of n, a(n) for n=1..45.

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.

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

Sequence in context: A207145 A044249 A044630 * A296026 A107581 A259738

Adjacent sequences: A103581 A103582 A103583 * A103585 A103586 A103587

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