The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A305796

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

A305796

Dirichlet convolution of A246277 with itself.
(history; published version)

#6 by Susanna Cuyler at Wed Jun 13 09:12:21 EDT 2018

STATUS

proposed

approved

#5 by Antti Karttunen at Wed Jun 13 07:30:19 EDT 2018

STATUS

editing

proposed

#4 by Antti Karttunen at Wed Jun 13 07:27:37 EDT 2018

CROSSREFS

Cf. A246277, A305791, A305798.

#3 by Antti Karttunen at Wed Jun 13 07:05:52 EDT 2018

LINKS

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

#2 by Antti Karttunen at Wed Jun 13 06:40:49 EDT 2018

NAME

allocated for Antti KarttunenDirichlet convolution of A246277 with itself.

DATA

0, 0, 0, 1, 0, 2, 0, 4, 1, 2, 0, 10, 0, 2, 2, 12, 0, 10, 0, 14, 2, 2, 0, 32, 1, 2, 4, 18, 0, 22, 0, 32, 2, 2, 2, 47, 0, 2, 2, 48, 0, 30, 0, 26, 10, 2, 0, 88, 1, 14, 2, 30, 0, 38, 2, 64, 2, 2, 0, 104, 0, 2, 14, 80, 2, 42, 0, 38, 2, 30, 0, 148, 0, 2, 10, 42, 2, 54, 0, 136, 12, 2, 0, 144, 2, 2, 2, 96, 0, 98, 2, 50, 2, 2, 2, 224, 0, 18, 18, 103, 0, 66, 0, 112, 22

OFFSET

1,6

FORMULA

a(n) = Sum_{d|n} A246277(d)*A246277(n/d).

PROG

(PARI)

A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};

A246277(n) = { if(1==n, 0, while((n%2), n = A064989(n)); (n/2)); };

A305796(n) = sumdiv(n, d, A246277(d)*A246277(n/d));

CROSSREFS

Cf. A246277, A305798.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Jun 13 2018

STATUS

approved

editing

#1 by Antti Karttunen at Sun Jun 10 11:31:17 EDT 2018

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved