[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Revision History for A373361 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
a(n) = gcd(n, A276085(n)), where A276085 is the primorial base log-function.
(history; published version)
#9 by OEIS Server at Sun Jun 02 17:34:31 EDT 2024
LINKS

Antti Karttunen, <a href="/A373361/b373361_1.txt">Table of n, a(n) for n = 1..65537</a>

#8 by Michael De Vlieger at Sun Jun 02 17:34:31 EDT 2024
STATUS

proposed

approved

Discussion
Sun Jun 02
17:34
OEIS Server: Installed first b-file as b373361.txt.
#7 by Antti Karttunen at Sun Jun 02 16:19:04 EDT 2024
STATUS

editing

proposed

#6 by Antti Karttunen at Sun Jun 02 15:58:24 EDT 2024
LINKS

Antti Karttunen, <a href="/A373361/b373361_1.txt">Table of n, a(n) for n = 1..65537</a>

<a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>

#5 by Antti Karttunen at Sun Jun 02 15:27:00 EDT 2024
CROSSREFS

Cf. also A324198, A373145, A373362.

#4 by Antti Karttunen at Sun Jun 02 15:12:45 EDT 2024
CROSSREFS

Cf. A108269 (positions of even terms), A328981 (their characteristic function), A359794 (positions of odd terms), A359832 (their characteristic function, parity of terms).

#3 by Antti Karttunen at Sun Jun 02 15:07:32 EDT 2024
NAME

allocated for Antti Karttunena(n) = gcd(n, A276085(n)), where A276085 is the primorial base log-function.

DATA

1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 3, 4, 1, 3, 1, 1, 1, 1, 1, 6, 1, 19, 1, 1, 1, 3, 1, 4, 5, 1, 1, 6, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 10, 1, 1, 1, 2, 1, 3, 1, 4, 1, 1, 1, 1, 1, 1, 1, 4, 1, 3, 1, 10, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 13, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1

OFFSET

1,4

PROG

(PARI)

A002110(n) = prod(i=1, n, prime(i));

A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*A002110(primepi(f[k, 1])-1)); };

A373361(n) = gcd(n, A276085(n));

CROSSREFS

Cf. A002110, A276085.

Cf. also A324198, A373145.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Jun 02 2024

STATUS

approved

editing

#2 by Antti Karttunen at Sun Jun 02 15:03:11 EDT 2024
KEYWORD

allocating

allocated

#1 by Antti Karttunen at Sun Jun 02 15:03:11 EDT 2024
NAME

allocated for Antti Karttunen

KEYWORD

allocating

STATUS

approved