|
Search: id:A063777
|
|
|
| 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). |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
t(49^2) = 400, a square.
|
|
PROGRAM
|
(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; print(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))) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 31 2009]
|
|
CROSSREFS
|
Cf. A001065, A001221.
Sequence in context: A160763 A041523 A054206 this_sequence A067788 A167601 A061185
Adjacent sequences: A063774 A063775 A063776 this_sequence A063778 A063779 A063780
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Aug 16 2001
|
|
|
Search completed in 0.002 seconds
|
