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.

A067042 Numbers in which the product of digits in even positions = product of digits in odd positions.

This page as a plain text file.
%I A067042 #17 Jan 06 2025 03:11:41
%S A067042 11,22,33,44,55,66,77,88,99,100,111,122,133,144,155,166,177,188,199,
%T A067042 200,221,242,263,284,300,331,362,393,400,441,482,500,551,600,661,700,
%U A067042 771,800,881,900,991,1000,1001,1002,1003,1004,1005,1006,1007,1008,1009
%N A067042 Numbers in which the product of digits in even positions = product of digits in odd positions.
%H A067042 Michael S. Branicky, <a href="/A067042/b067042.txt">Table of n, a(n) for n = 1..10000</a>
%F A067042 Asymptotics: For any n, let f(n) be the number of entries in this sequence that are less than n. Then f(n)/n approaches 1 as n goes to infinity. This is because among numbers with a large number of digits, almost all have 0's in both odd positions and even positions. - _David Wasserman_, Jan 16 2002
%e A067042 2364 is a member as 2*6 = 3*4.
%t A067042 Select[Range[1010], Product[Part[(digits=IntegerDigits[#]), 2i], {i, Floor[(len=IntegerLength[#])/2]}] == Product[Part[digits, 2i-1], {i,Ceiling[len/2]}] &] (* _Stefano Spezia_, Jan 05 2025 *)
%o A067042 (Python)
%o A067042 from math import prod
%o A067042 def ok(n):
%o A067042     s = str(n)
%o A067042     return s != '1' and prod(map(int, s[::2])) == prod(map(int, s[1::2]))
%o A067042 print([k for k in range(1010) if ok(k)]) # _Michael S. Branicky_, Nov 22 2021
%Y A067042 Cf. A008593 (similar for sums).
%K A067042 base,nonn,easy
%O A067042 1,1
%A A067042 _Amarnath Murthy_, Dec 29 2001
%E A067042 Corrected by _David Wasserman_, Jan 16 2002
%E A067042 More terms from _Sascha Kurz_, Mar 23 2002