Revision History for A373158
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#18 by OEIS Server at Tue Jun 25 17:07:13 EDT 2024
|
| LINKS
|
Antti Karttunen, <a href="/A373158/b373158_1.txt">Table of n, a(n) for n = 1..2048</a>
|
|
|
|
#17 by Michael De Vlieger at Tue Jun 25 17:07:13 EDT 2024
|
|
|
Discussion
|
Tue Jun 25
| 17:07
| OEIS Server: Installed new b-file as b373158.txt. Old b-file is now b373158_1.txt.
|
|
|
|
#16 by Antti Karttunen at Tue Jun 25 16:32:37 EDT 2024
|
|
|
|
#15 by Antti Karttunen at Tue Jun 25 16:32:31 EDT 2024
|
| PROG
|
(PARI) A373158(n) = { my(f=factor(n)); sum(i=1, #f~, f[i, 2]*prod(i=1, primepi(f[i, 1]), prime(i))); }; \\ - _Antti Karttunen_, ))); }; \\ corrected Jun 25 2024
|
|
|
|
#14 by Antti Karttunen at Tue Jun 25 16:31:19 EDT 2024
|
| PROG
|
(PARI) A373158(n) = { my(f=factor(n)); sum(i=1, #f~, f[i, 2]*prod(i=1, primepi(f[i, 1]), prime(i))); }; \\ (Corrected) - _))); }; \\ - _Antti Karttunen_, corrected Jun 25 2024
|
| STATUS
|
proposed
editing
|
|
|
|
#13 by Antti Karttunen at Tue Jun 25 14:06:11 EDT 2024
|
|
|
|
#12 by Antti Karttunen at Tue Jun 25 14:04:44 EDT 2024
|
| FORMULA
|
a(n) = A276085(A003961(n)). - _From _Antti Karttunen_, Jun 25 2024: (Start)
a(n) = A276085(A003961(n)).
For n >= 1, a(A000040(n)) = A002110(n).
(End)
|
| CROSSREFS
|
Cf. also A000040, A000720, A002110, A003961, A034386, A108951, A276085, A276154, A373984 [= A108951(n)-a(n)], A373985 [= gcd(a(n), A108951(n))], A373986, A373987.
|
|
|
|
#11 by Antti Karttunen at Tue Jun 25 13:32:33 EDT 2024
|
|
|
|
#10 by Antti Karttunen at Tue Jun 25 13:25:53 EDT 2024
|
| LINKS
|
Antti Karttunen, <a href="/A373158/b373158_1.txt">Table of n, a(n) for n = 1..2048</a>
|
|
|
|
#9 by Antti Karttunen at Tue Jun 25 13:17:31 EDT 2024
|
| DATA
|
0, 2, 6, 4, 30, 8, 210, 6, 12, 32, 2310, 10, 30030, 212, 36, 8, 510510, 14, 9699690, 34, 216, 2312, 223092870, 12, 60, 30032, 18, 214, 6469693230, 38, 200560490130, 10, 2316, 510512, 240, 16, 7420738134810, 9699692, 30036, 36, 304250263527210, 218, 13082761331670030, 2314, 42, 223092872, 614889782588491410, 14
|
| FORMULA
|
a(n) = A276085(A003961(n)). - Antti Karttunen, Jun 25 2024
|
| PROG
|
(PARI)) A373158(n) = { my(f=factor(n)); sum(i=1, #f~, f[i, 2]*prod(i=1, primepi(f[i, 1]), prime(i))); }; \\ (Corrected) - _Antti Karttunen_, Jun 25 2024
A002110(n) = prod(i=1, n, prime(i));
INCORRECT_A373158(n) = { my(f=factor(n)); sum(i=1, #f~, A002110(primepi(f[i, 1]))^f[i, 2]) }; \\ Here I use f[i, 2] as an exponent, although it should be used as a multiplier! Copy-pasted from A108951 without thinking!!!
(PARI) A373158(n) = { my(f=factor(n)); sum(i=1, #f~, f[i, 2]*prod(i=1, primepi(f[i, 1]), prime(i))); };
|
| EXTENSIONS
|
Data [first incorrect term was at a(8)] and the faulty PARI-program corrected by Antti Karttunen, Jun 25 2024
|
|
|
|
|