cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A141439 Positions at which disjoint pattern counts differ from overlapping pattern counts related to sequence A117127.

Original entry on oeis.org

21, 22, 23, 45, 47, 55, 73, 85, 86, 90, 91, 95, 109, 110, 111, 119, 146, 170, 173, 181, 182, 187, 191, 219, 221, 223, 239, 247, 273, 307, 341, 342, 346, 362, 365, 375, 383, 409, 438, 443, 447, 477, 478, 479, 495, 503, 546, 585, 614, 660, 682, 685, 693, 725
Offset: 1

Views

Author

Diana L. Mecum, Aug 06 2008

Keywords

Examples

			When "n" = 21, the base two concatenated range of integers from 1 to 21 is "1101110010111011110001001101010111100110111101111100001000110010100111010010101". 21 in base two is "10101".
Note that there are two instances of "10101" in the concatenated number when disjoint patterns are considered. There are three pattern matches when overlapping patterns are considered.
		

Crossrefs

Cf. A117127.

Programs

  • Mathematica
    f[n_, k_] := StringCount[ ToString@ FromDigits@ Flatten@ IntegerDigits[ Range@n, 2], ToString@ FromDigits@ IntegerDigits[n, 2], Overlaps -> {True, False}[[k]]]; Select[ Range@ 725, f[ #, 1] != f[ #, 2] &] (* Robert G. Wilson v, Aug 30 2008 *)