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.

A307230 Number of divisible pairs of distinct positive integers up to n with at least one binary carry.

This page as a plain text file.
%I A307230 #8 Jul 27 2019 14:57:51
%S A307230 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,
%T A307230 39,42,43,49,50,50,53,54,57,60,61,63,66,68,69,74,75,78,83,85,86,88,90,
%U A307230 93,96,99,100,105,108,111,114,116,117,125,126,128,133,133
%N A307230 Number of divisible pairs of distinct positive integers up to n with at least one binary carry.
%C A307230 Two positive integers are divisible if the first divides the second, and have a binary carry if the positions of 1's in their reversed binary expansion overlap.
%F A307230 a(n) = A325124(n) - n.
%e A307230 The a(3) = 1 through a(12) = 11 pairs:
%e A307230   {1,3}  {1,3}  {1,3}  {1,3}  {1,3}  {1,3}  {1,3}  {1,3}   {1,3}   {1,3}
%e A307230                 {1,5}  {1,5}  {1,5}  {1,5}  {1,5}  {1,5}   {1,5}   {1,5}
%e A307230                        {2,6}  {1,7}  {1,7}  {1,7}  {1,7}   {1,7}   {1,7}
%e A307230                        {3,6}  {2,6}  {2,6}  {1,9}  {1,9}   {1,9}   {1,9}
%e A307230                               {3,6}  {3,6}  {2,6}  {2,6}   {2,6}   {2,6}
%e A307230                                             {3,6}  {3,6}   {3,6}   {3,6}
%e A307230                                             {3,9}  {3,9}   {3,9}   {3,9}
%e A307230                                                    {2,10}  {1,11}  {1,11}
%e A307230                                                            {2,10}  {2,10}
%e A307230                                                                    {4,12}
%e A307230                                                                    {6,12}
%t A307230 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}]
%Y A307230 Cf. A006218, A019565, A050315, A070939, A080572, A247935, A267610.
%Y A307230 Cf. A325095, A325096, A325101, A325103, A325104, A325105, A325106, A325124.
%K A307230 nonn
%O A307230 0,6
%A A307230 _Gus Wiseman_, Mar 29 2019