The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A336354

Numbers k such that p^2 divides k, where p = A006530(k), the largest prime factor of k, and sigma(k) does not have any prime factor larger than p.
(history; published version)

#18 by Alois P. Heinz at Sun Jul 14 12:28:45 EDT 2024

STATUS

proposed

approved

#17 by Robert C. Lyons at Sun Jul 14 12:21:15 EDT 2024

STATUS

editing

proposed

#16 by Robert C. Lyons at Sun Jul 14 12:21:09 EDT 2024

PROG

(PARI) isA336354(n) = ((0==A336352(n))&&(1==A319988(n)));

STATUS

approved

editing

#15 by OEIS Server at Sat Jun 29 09:09:15 EDT 2024

LINKS

David A. Corneth, <a href="/A336354/b336354_1.txt">Table of n, a(n) for n = 1..10000</a>

#14 by Michael De Vlieger at Sat Jun 29 09:09:15 EDT 2024

STATUS

reviewed

approved

Discussion

Sat Jun 29

09:09

OEIS Server: Installed first b-file as b336354.txt.

#13 by Stefano Spezia at Sat Jun 29 08:52:40 EDT 2024

STATUS

proposed

reviewed

#12 by David A. Corneth at Thu Jun 27 11:15:51 EDT 2024

STATUS

editing

proposed

#11 by David A. Corneth at Thu Jun 27 11:13:16 EDT 2024

LINKS

David A. Corneth, <a href="/A336354/b336354_1.txt">Table of n, a(n) for n = 1..10000</a>

PROG

(PARI) is(n) = {if(n == 1, return(0));

my(f = factor(n), s, fs);

if(f[#f~, 2] < 2, return(0));

s = sigma(f);

fs = factor(s, f[#f~, 1]);

fs[#fs~, 1] <= f[#f~, 1]

} \\ David A. Corneth, Jun 27 2024

STATUS

approved

editing

Discussion

Thu Jun 27

11:15

David A. Corneth: prog and b-file

#10 by N. J. A. Sloane at Mon Jul 20 02:09:16 EDT 2020

STATUS

proposed

approved

#9 by Omar E. Pol at Sun Jul 19 12:59:38 EDT 2020

STATUS

editing

proposed