The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A328310

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A328310

a(n) = A051903(A003415(n)) - A051903(n).
(history; published version)

#6 by Susanna Cuyler at Sun Oct 13 18:09:37 EDT 2019

STATUS

proposed

approved

#5 by Antti Karttunen at Sun Oct 13 16:08:04 EDT 2019

STATUS

editing

proposed

#4 by Antti Karttunen at Sun Oct 13 11:20:40 EDT 2019

LINKS

Antti Karttunen, <a href="/A328310/b328310.txt">Table of n, a(n) for n = 2..20000</a>

#3 by Antti Karttunen at Sun Oct 13 09:50:48 EDT 2019

CROSSREFS

Cf. A003415, A051903, A328320, A328321.

#2 by Antti Karttunen at Sun Oct 13 09:18:49 EDT 2019

NAME

allocated for Antti Karttunen

a(n) = A051903(A003415(n)) - A051903(n).

DATA

-1, -1, 0, -1, 0, -1, -1, -1, 0, -1, 2, -1, 1, 2, 1, -1, -1, -1, 1, 0, 0, -1, -1, -1, 0, 0, 3, -1, 0, -1, -1, 0, 0, 1, 0, -1, 0, 3, -1, -1, 0, -1, 2, -1, 1, -1, 0, -1, 0, 1, 1, -1, 1, 3, -1, 0, 0, -1, 0, -1, 0, -1, 0, 1, 0, -1, 1, 0, 0, -1, -1, -1, 0, -1, 2, 1, 0, -1, 0, -1, 0, -1, 0, 0, 1, 4, -1, -1, -1, 1, 3, 0, 1, 2

OFFSET

2,11

FORMULA

a(n) = A051903(A003415(n)) - A051903(n).

a(n) = A328311(n) - 1.

PROG

(PARI)

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));

A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));

A328310(n) = (A051903(A003415(n)) - A051903(n));

CROSSREFS

Cf. A003415, A051903.

One less than A328311.

KEYWORD

allocated

sign

AUTHOR

Antti Karttunen, Oct 13 2019

STATUS

approved

editing

#1 by Antti Karttunen at Sat Oct 12 07:34:06 EDT 2019

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved