The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A353360

a(n) = A006047(A048675(n)).
(history; published version)

#6 by Michael De Vlieger at Wed Apr 20 15:47:38 EDT 2022

STATUS

proposed

approved

#5 by Antti Karttunen at Wed Apr 20 14:44:33 EDT 2022

STATUS

editing

proposed

#4 by Antti Karttunen at Wed Apr 20 14:43:10 EDT 2022

CROSSREFS

Cf. also A332813, A332823 and A353330.

#3 by Antti Karttunen at Wed Apr 20 14:40:28 EDT 2022

NAME

allocated for Antti Karttunen

a(n) = A006047(A048675(n)).

DATA

1, 2, 3, 3, 4, 2, 9, 2, 4, 6, 12, 4, 12, 2, 3, 4, 12, 6, 36, 3, 4, 18, 16, 6, 9, 6, 3, 4, 81, 6, 144, 6, 3, 18, 4, 3, 324, 24, 12, 6, 432, 6, 108, 3, 9, 24, 576, 3, 12, 2, 12, 12, 11664, 6, 9, 6, 48, 6, 972, 9, 3888, 216, 4, 3, 4, 6, 1728, 12, 12, 8, 8748, 6, 5184, 162, 4, 48, 9, 18, 34992, 9, 9, 648, 15552, 4, 36, 72

OFFSET

1,2

LINKS

<a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>

FORMULA

a(n) = A006047(A048675(n)).

PROG

(PARI)

A006047(n) = { my(m=1, d); while(n, d = (n%3); m *= (1+d); n = (n-d)/3); m; };

A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; };

A353360(n) = A006047(A048675(n));

CROSSREFS

Cf. A006047, A048675.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Apr 20 2022

STATUS

approved

editing

#2 by Antti Karttunen at Fri Apr 15 07:49:20 EDT 2022

KEYWORD

allocating

allocated

#1 by Antti Karttunen at Fri Apr 15 07:49:20 EDT 2022

NAME

allocated for Antti Karttunen

KEYWORD

allocating

STATUS

approved