The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A063777

t(n^2) is a square and sets a new record for such squares, where t(n) = (sigma(n)-n)*omega(n); or t(n)= A001065(n)*A001221(n).
(history; published version)

#16 by Michael De Vlieger at Sat May 13 20:00:14 EDT 2023

STATUS

proposed

approved

#15 by Sean A. Irvine at Sat May 13 17:58:55 EDT 2023

STATUS

editing

proposed

#14 by Sean A. Irvine at Sat May 13 17:58:51 EDT 2023

DATA

1, 3, 49, 114, 290, 1266, 3026, 4587, 8642, 14949, 21504, 47976, 74535, 79922, 102818, 112960, 172658, 280226, 632018, 662546, 693794, 791858, 969698, 1516322, 1758962, 2128898, 2184626, 2298242, 2414738, 2594882, 2718578, 3106946, 3174194, 3450386, 3521234

EXTENSIONS

More terms from Sean A. Irvine, May 13 2023

STATUS

approved

editing

#13 by Bruno Berselli at Mon Jun 25 03:21:49 EDT 2018

STATUS

proposed

approved

#12 by Michel Marcus at Mon Jun 25 01:54:22 EDT 2018

STATUS

editing

proposed

#11 by Michel Marcus at Mon Jun 25 01:54:19 EDT 2018

PROG

(PARI) a=0; t(n) = (sigma(n)-n)*omega(n);

(PARI) a=0; t(n) = (sigma(n)-n)*omega(n); for(n=1, 10^7, x=t(n^2); if(issquare(x), b=x; if(b>a, a=b; printprint1(n, ", "))))

(PARI) t(n) = (sigma(n) - n)*omega(n);

(PARI) t(n) = (sigma(n) - n)*omega(n); { n=0; a=-1; for (m=1, 10^9, if(issquare(b=t(m^2)), if(b>a, a=b; write("b063777.txt", n++, " ", m); if (n==31, break))) ) } \\ Harry J. Smith, Aug 31 2009

STATUS

proposed

editing

#10 by Jon E. Schoenfield at Sun Jun 24 23:27:23 EDT 2018

STATUS

editing

proposed

#9 by Jon E. Schoenfield at Sun Jun 24 23:27:19 EDT 2018

NAME

t(n^2) is a square and sets a new record for such squares, where t(n) = (sigma(n)-n)*omega(n); or t(n)= A001065(n)*A001221(n).

PROG

(PARI) t(n) = (sigma(n) - n)*omega(n); { n=0; a=-1; for (m=1, 10^9, if(issquare(b=t(m^2)), if(b>a, a=b; write("b063777.txt", n++, " ", m); if (n==31, break))) ) } [From _\\ _Harry J. Smith_, Aug 31 2009]

STATUS

approved

editing

#8 by N. J. A. Sloane at Fri Dec 15 17:35:32 EST 2017

AUTHOR

_Jason Earls (zevi_35711(AT)yahoo.com), _, Aug 16 2001

Discussion

Fri Dec 15

17:35

OEIS Server: https://oeis.org/edit/global/2722

#7 by Russ Cox at Fri Mar 30 17:24:25 EDT 2012

PROG

(PARI) t(n) = (sigma(n) - n)*omega(n); { n=0; a=-1; for (m=1, 10^9, if(issquare(b=t(m^2)), if(b>a, a=b; write("b063777.txt", n++, " ", m); if (n==31, break))) ) } [From _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Aug 31 2009]

Discussion

Fri Mar 30

17:24

OEIS Server: https://oeis.org/edit/global/133