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.

Showing 1-2 of 2 results.

A347749 Number of positive integers with n digits and final digit 6 that are equal to the product of two integers ending with the same digit.

Original entry on oeis.org

0, 4, 33, 352, 3597, 36781, 374071, 3790993, 38326689, 386782889
Offset: 1

Views

Author

Stefano Spezia, Sep 12 2021

Keywords

Comments

a(n) is the number of n-digit numbers in A347747.

Crossrefs

Programs

  • Mathematica
    Table[{lo, hi}={10^(n-1), 10^n}; Length@Select[Union[Union@Flatten@Table[a*b, {a, 4, Floor[hi/4], 10}, {b, a, Floor[hi/a], 10}],Union@Flatten@Table[a*b, {a, 6, Floor[hi/6], 10}, {b, a, Floor[hi/a], 10}]], lo<#
    				
  • Python
    def a(n):
      lo, hi = 10**(n-1), 10**n
      return len(set(a*b for a in range(4, hi//4+1, 10) for b in range(a, hi//a+1, 10) if lo <= a*b < hi) | set(a*b for a in range(6, hi//6+1, 10) for b in range(a, hi//a+1, 10) if lo <= a*b < hi))
    print([a(n) for n in range(1, 9)]) # Michael S. Branicky, Oct 06 2021

Formula

a(n) < A052268(n).
a(n) = A337856(n) + A347255(n) - A347748(n).
Conjecture: lim_{n->infinity} a(n)/a(n-1) = 10.

Extensions

a(9)-a(10) from Michael S. Branicky, Oct 06 2021

A347746 Positive integers that are equal both to the product of two integers ending with 4 and to that of two integers ending with 6.

Original entry on oeis.org

96, 216, 256, 336, 416, 456, 576, 696, 736, 756, 816, 896, 936, 1056, 1176, 1216, 1296, 1376, 1416, 1456, 1536, 1596, 1656, 1696, 1776, 1836, 1856, 1896, 1976, 2016, 2136, 2176, 2256, 2336, 2376, 2436, 2496, 2576, 2616, 2656, 2736, 2816, 2856, 2916, 2976, 3016
Offset: 1

Views

Author

Stefano Spezia, Sep 12 2021

Keywords

Comments

Intersection of A324297 and A347253.

Examples

			96 = 4*24 = 6*16, 216 = 4*54 = 6*36, 256 = 4*64 = 16*16, 336 = 4*84 = 6*56, ...
		

Crossrefs

Cf. A017341 (supersequence), A324297, A347253, A347748.

Programs

  • Mathematica
    max=3050;Select[Intersection[Union@Flatten@Table[a*b, {a, 4, Floor[max/4], 10}, {b, a, Floor[max/a], 10}],Union@Flatten@Table[a*b, {a, 6, Floor[max/6], 10}, {b, a, Floor[max/a], 10}]], 0<#
    				
  • Python
    def aupto(lim): return sorted(set(a*b for a in range(4, lim//4+1, 10) for b in range(a, lim//a+1, 10)) & set(a*b for a in range(6, lim//6+1, 10) for b in range(a, lim//a+1, 10)))
    print(aupto(3017)) # Michael S. Branicky, Sep 12 2021

Formula

Lim_{n->infinity} a(n)/a(n-1) = 1.
Showing 1-2 of 2 results.