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.

A358512 a(n) is the smallest number k with exactly n divisors that can be written in the form m + digsum(m), for some m (A176995).

Original entry on oeis.org

1, 2, 4, 8, 12, 30, 24, 80, 48, 72, 96, 192, 120, 180, 288, 612, 240, 624, 420, 360, 480, 900, 1632, 960, 1200, 720, 840, 1560, 2100, 1260, 1440, 3420, 2640, 3024, 1680, 2880, 8316, 4620, 3600, 3780, 4200, 2520, 3360, 6240, 9900, 6300, 7200, 8640, 6720, 13200, 7920
Offset: 0

Views

Author

Marius A. Burtea, Dec 04 2022

Keywords

Examples

			1 cannot be written in the form m + digsum(m), so a(0) = 1.
2 has divisors 1 and 2, and only 2 is written 2 = 1 + digsum(1), so a(1) = 2.
3 has divisors 1 and 3 that cannot be written in the form m + digsum(m).
4 has divisors 1, 2, 4, but only 2 = 1 + digsum(1) and 4 = 2 + digsum(2), so a(2) = 4.
		

Crossrefs

Programs

  • Magma
    f:=func; a:=[]; for n in [0..50] do k:=1; while #[d:d in Divisors(k)|f(d)] ne n do k:=k+1; end while; Append(~a,k); end for; a;
    
  • PARI
    is_A003052(n)={for(i=1, min(n\2, 9*#digits(n)), sumdigits(n-i)==i && return); n}
    a(n) = my(k=1); while (sumdiv(k, d, !is_A003052(d)) != n, k++); k; \\ Michel Marcus, Dec 13 2022