[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A214740
Least m>0 such that n-m divides 2^n+m.
1
1, 2, 2, 4, 1, 2, 2, 8, 8, 10, 8, 8, 5, 14, 8, 10, 16, 12, 8, 8, 3, 22, 4, 16, 11, 20, 5, 28, 28, 20, 5, 8, 32, 34, 32, 4, 4, 38, 12, 40, 40, 24, 14, 34, 24, 22, 11, 16, 32, 14, 14, 36, 52, 36, 4, 56, 56, 52, 14, 12, 29, 62, 24, 64, 1, 2, 32, 62, 68, 58, 64, 6, 16, 74, 72
OFFSET
2,2
LINKS
EXAMPLE
Write x#y if x|y is false; then 11#4097, 10#4098, 9#4099, 8#4100, 7#4101, 6#4102, 5#4103, 4|4104, so a(12) = 8.
MATHEMATICA
Table[m = 1; While[! Divisible[2^(n-1)+m, n - m], m++]; m, {n, 2, 100}]
CROSSREFS
Cf. A214739.
Sequence in context: A034951 A317826 A317836 * A064848 A333335 A212791
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 28 2012
STATUS
approved