A267610
Total number of OFF (white) cells after n iterations of the "Rule 182" elementary cellular automaton starting with a single ON (black) cell.
Original entry on oeis.org
0, 0, 2, 2, 4, 6, 12, 12, 14, 16, 22, 24, 30, 36, 50, 50, 52, 54, 60, 62, 68, 74, 88, 90, 96, 102, 116, 122, 136, 150, 180, 180, 182, 184, 190, 192, 198, 204, 218, 220, 226, 232, 246, 252, 266, 280, 310, 312, 318, 324, 338, 344, 358, 372, 402, 408, 422, 436
Offset: 0
- S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
-
rule=182; rows=20; ca=CellularAutomaton[rule,{{1},0},rows-1,{All,All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]],{rows-k+1,rows+k-1}],{k,1,rows}]; (* Truncated list of each row *) nbc=Table[Total[catri[[k]]],{k,1,rows}]; (* Number of Black cells in stage n *) nwc=Table[Length[catri[[k]]]-nbc[[k]],{k,1,rows}]; (* Number of White cells in stage n *) Table[Total[Take[nwc,k]],{k,1,rows}] (* Number of White cells through stage n *)
A267700
"Tree" sequence in a 90-degree sector of the cellular automaton of A160720.
Original entry on oeis.org
0, 1, 2, 5, 6, 9, 12, 19, 20, 23, 26, 33, 36, 43, 50, 65, 66, 69, 72, 79, 82, 89, 96, 111, 114, 121, 128, 143, 150, 165, 180, 211, 212, 215, 218, 225, 228, 235, 242, 257, 260, 267, 274, 289, 296, 311, 326, 357, 360, 367, 374, 389, 396, 411, 426, 457, 464, 479, 494, 525, 540, 571, 602, 665, 666, 669, 672, 679, 682, 689
Offset: 0
-
Accumulate[Table[2^DigitCount[n,2,1]-1,{n,0,30}]] (* based on conjecture confirmed by Sloane, Gus Wiseman, Mar 31 2019 *)
A080572
Number of ordered pairs (i,j), 0 <= i,j < n, for which (i & j) is nonzero, where & is the bitwise AND operator.
Original entry on oeis.org
0, 0, 1, 2, 7, 8, 15, 24, 37, 38, 49, 62, 81, 98, 121, 146, 175, 176, 195, 216, 247, 272, 307, 344, 387, 420, 463, 508, 559, 608, 663, 720, 781, 782, 817, 854, 909, 950, 1009, 1070, 1141, 1190, 1257, 1326, 1405, 1478, 1561, 1646, 1737, 1802, 1885, 1970, 2065, 2154
Offset: 0
- C. Fu, H. Fu and W. Liao, A new construction for a critical set in special Latin squares, Proceedings of the Twenty-sixth Southeastern International Conference on Combinatorics, Graph Theory and Computing (Boca Raton, Florida, 1995), Congressus Numerantium, Vol. 110 (1995), pp. 161-166.
- D. R. Stinson and G. H. J. van Rees, Some large critical sets, Proceedings of the Eleventh Manitoba Conference on Numerical Mathematics and Computing (Winnipeg, Manitoba, 1981), Congressus Numerantium, Vol. 34 (1982), pp. 441-456.
- Alois P. Heinz, Table of n, a(n) for n = 0..10000
- R. Bean, Three problems on partial Latin squares, Problem 418 (BCC19,2), Discrete Math., 293 (2005), 314-315.
- J. M. Dover, On two OEIS conjectures, arXiv:1606.08033 [math.CO], 2016.
- Hsien-Kuei Hwang, Svante Janson, and Tsung-Hsi Tsai, Identities and periodic oscillations of divide-and-conquer recurrences splitting at half, arXiv:2210.10968 [cs.DS], 2022, p. 29.
-
f:=proc(n) option remember; local t;
if n <= 1 then 0
elif (n mod 2) = 0 then 3*f(n/2)+(n/2)^2
else t:=(n-1)/2; f(t)+2*f(t+1)+t^2-1; fi; end;
[seq(f(n),n=0..100)]; # N. J. A. Sloane, Jul 01 2017
-
a[0] = a[1] = 0; a[n_] := a[n] = If[EvenQ[n], 3*a[n/2] + n^2/4, 2*a[(n-1)/2 + 1] + a[(n-1)/2] + (1/4)*(n-1)^2 - 1];
Array[a, 60, 0] (* Jean-François Alcover, Dec 09 2017, from Dover's formula *)
Table[Length[Select[Tuples[Range[n-1],2],Intersection[Position[Reverse[IntegerDigits[#[[1]],2]],1],Position[Reverse[IntegerDigits[#[[2]],2]],1]]!={}&]],{n,0,20}] (* Gus Wiseman, Mar 30 2019 *)
A325123
Number of divisible pairs of positive integers up to n with no binary carries.
Original entry on oeis.org
0, 0, 1, 1, 3, 3, 4, 4, 7, 7, 9, 9, 12, 12, 13, 13, 17, 17, 19, 19, 22, 22, 23, 23, 28, 28, 29, 29, 31, 31, 32, 32, 37, 37, 39, 39, 44, 44, 45, 45, 50, 50, 52, 52, 54, 54, 55, 55, 62, 62, 64, 64, 66, 66, 68, 68, 72, 72, 73, 73, 76, 76, 77, 77, 83, 83, 85, 85
Offset: 0
The a(2) = 1 through a(11) = 9 pairs:
{1,2} {1,2} {1,2} {1,2} {1,2} {1,2} {1,2} {1,2} {1,2} {1,2}
{1,4} {1,4} {1,4} {1,4} {1,4} {1,4} {1,4} {1,4}
{2,4} {2,4} {1,6} {1,6} {1,6} {1,6} {1,6} {1,6}
{2,4} {2,4} {1,8} {1,8} {1,8} {1,8}
{2,4} {2,4} {2,4} {2,4}
{2,8} {2,8} {2,8} {2,8}
{4,8} {4,8} {4,8} {4,8}
{1,10} {1,10}
{5,10} {5,10}
-
Table[Length[Select[Tuples[Range[n],2],Divisible@@Reverse[#]&&Intersection[Position[Reverse[IntegerDigits[#[[1]],2]],1],Position[Reverse[IntegerDigits[#[[2]],2]],1]]=={}&]],{n,0,20}]
A307230
Number of divisible pairs of distinct positive integers up to n with at least one binary carry.
Original entry on oeis.org
0, 0, 0, 1, 1, 2, 4, 5, 5, 7, 8, 9, 11, 12, 14, 17, 17, 18, 21, 22, 24, 27, 29, 30, 32, 34, 36, 39, 42, 43, 49, 50, 50, 53, 54, 57, 60, 61, 63, 66, 68, 69, 74, 75, 78, 83, 85, 86, 88, 90, 93, 96, 99, 100, 105, 108, 111, 114, 116, 117, 125, 126, 128, 133, 133
Offset: 0
The a(3) = 1 through a(12) = 11 pairs:
{1,3} {1,3} {1,3} {1,3} {1,3} {1,3} {1,3} {1,3} {1,3} {1,3}
{1,5} {1,5} {1,5} {1,5} {1,5} {1,5} {1,5} {1,5}
{2,6} {1,7} {1,7} {1,7} {1,7} {1,7} {1,7}
{3,6} {2,6} {2,6} {1,9} {1,9} {1,9} {1,9}
{3,6} {3,6} {2,6} {2,6} {2,6} {2,6}
{3,6} {3,6} {3,6} {3,6}
{3,9} {3,9} {3,9} {3,9}
{2,10} {1,11} {1,11}
{2,10} {2,10}
{4,12}
{6,12}
-
Table[Length[Select[Subsets[Range[n],{2}],Divisible@@Reverse[#]&&Intersection[Position[Reverse[IntegerDigits[#[[1]],2]],1],Position[Reverse[IntegerDigits[#[[2]],2]],1]]!={}&]],{n,0,20}]
Showing 1-5 of 5 results.
Comments