The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A359412

Numbers with a record number of divisors that are both infinitary and exponential.
(history; published version)

#12 by Peter Luschny at Thu Apr 06 06:35:46 EDT 2023

STATUS

reviewed

approved

#11 by Michel Marcus at Thu Apr 06 06:30:00 EDT 2023

STATUS

proposed

reviewed

#10 by Amiram Eldar at Thu Apr 06 06:09:01 EDT 2023

STATUS

editing

proposed

#9 by Amiram Eldar at Thu Apr 06 06:08:50 EDT 2023

COMMENTS

The first 14 15 terms are cubes. Are there noncubes in this sequence?

#8 by Amiram Eldar at Thu Apr 06 06:08:40 EDT 2023

LINKS

Amiram Eldar, <a href="/A359412/b359412.txt">Table of n, a(n) for n = 1..15</a>

STATUS

approved

editing

#7 by N. J. A. Sloane at Sat Dec 31 01:43:39 EST 2022

STATUS

reviewed

approved

#6 by Joerg Arndt at Sat Dec 31 01:38:12 EST 2022

STATUS

proposed

reviewed

#5 by Amiram Eldar at Fri Dec 30 10:10:21 EST 2022

STATUS

editing

proposed

#4 by Amiram Eldar at Fri Dec 30 10:10:06 EST 2022

MATHEMATICA

s[n_] := DivisorSum[n, 1 &, BitAnd[n, #] == # &]; f[p_, e_] := s[e]; d[1] = 1; d[n_] := Times @@ f @@@ FactorInteger[n];

v = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]];

seq = {}; dm = 0; Do[If[(dk = d[v[[k]]]) > dm, dm = dk; AppendTo[seq, v[[k]]]], {k, 1, Length[v]}]; seq

STATUS

proposed

editing

#3 by Amiram Eldar at Fri Dec 30 09:15:59 EST 2022

STATUS

editing

proposed