The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A359076

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A359076

Numbers that have at least two proper divisors with an equal sum of digits.
(history; published version)

#19 by Joerg Arndt at Fri Jan 20 01:30:50 EST 2023

STATUS

reviewed

approved

#18 by Michel Marcus at Fri Jan 20 01:15:23 EST 2023

STATUS

proposed

reviewed

#17 by Robert Israel at Thu Jan 19 20:42:19 EST 2023

STATUS

editing

proposed

#16 by Robert Israel at Thu Jan 19 20:42:13 EST 2023

COMMENTS

If x is in A359074 then x*y is a term for all y >= 2. - Robert Israel, Jan 19 2023

LINKS

Robert Israel, <a href="/A359076/b359076.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#15 by N. J. A. Sloane at Wed Dec 21 20:22:34 EST 2022

STATUS

proposed

approved

#14 by Stefano Spezia at Mon Dec 19 06:30:21 EST 2022

STATUS

editing

proposed

#13 by Stefano Spezia at Mon Dec 19 06:29:52 EST 2022

MAPLE

base, 10)), [(numtheory[divisors](n) minus {1, n})[]])):

select(q, [$1..210200])[]; # Alois P. Heinz, Dec 18 2022

STATUS

proposed

editing

Discussion

Mon Dec 19

06:30

Stefano Spezia: Updated Maple code to have same terms

#12 by Michel Marcus at Mon Dec 19 04:53:28 EST 2022

STATUS

editing

proposed

#11 by Michel Marcus at Mon Dec 19 04:53:24 EST 2022

PROG

(PARI) isok(k) = my(d=setminus(Set(divisors(k)), [k])); #Set(apply(sumdigits, d)) < #d; \\ Michel Marcus, Dec 19 2022

STATUS

proposed

editing

#10 by Stefano Spezia at Mon Dec 19 04:51:52 EST 2022

STATUS

editing

proposed