The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A334200

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

Fully additive with a(n) = n-1 for n <= 3, and a(p) = 1 + a(A048673(p)) when p is prime > 3 and a(n*m) = a(n) + a(m) when m,n > 1.
(history; published version)

#9 by Susanna Cuyler at Wed May 13 18:59:14 EDT 2020

STATUS

proposed

approved

#8 by Antti Karttunen at Wed May 13 17:18:57 EDT 2020

STATUS

editing

proposed

#7 by Antti Karttunen at Wed May 13 17:08:40 EDT 2020

CROSSREFS

Cf. A048673, A064097, A334199.

Cf. also A064097, A334206.

STATUS

proposed

editing

#6 by Antti Karttunen at Wed May 13 16:25:59 EDT 2020

STATUS

editing

proposed

#5 by Antti Karttunen at Wed May 13 16:13:05 EDT 2020

LINKS

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

CROSSREFS

Cf. A048673, A064097, A334199.

Cf. A334199 for positions of records.

#4 by Antti Karttunen at Wed May 13 15:50:21 EDT 2020

NAME

Fully additive with a(n) = n-1 for n <= 3, and a(p) = 1 + a(A048673(np)) when p is prime > 3 and a(n*m) = a(n) + a(m) when m,n > 1.

CROSSREFS

Cf. A334199 for positions of records.

#3 by Antti Karttunen at Wed May 13 15:25:16 EDT 2020

NAME

Fully additive with a(n) = n-1 for n <= 3, and a(p) = 1 + a(A048673(n)) if when p is prime > 3 and a(n*m) = a(n) + a(m) if when m,n > 1.

LINKS

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

#2 by Antti Karttunen at Wed May 13 15:10:51 EDT 2020

NAME

allocated Fully additive with a(n) = n-1 for Antti Karttunenn <= 3, and a(p) = 1 + a(A048673(n)) if p is prime and a(n*m) = a(n) + a(m) if m,n > 1.

DATA

0, 1, 2, 2, 3, 3, 4, 3, 4, 4, 5, 4, 5, 5, 5, 4, 5, 5, 5, 5, 6, 6, 6, 5, 6, 6, 6, 6, 5, 6, 6, 5, 7, 6, 7, 6, 7, 6, 7, 6, 7, 7, 6, 7, 7, 7, 7, 6, 8, 7, 7, 7, 7, 7, 8, 7, 7, 6, 7, 7, 7, 7, 8, 6, 8, 8, 7, 7, 8, 8, 8, 7, 7, 8, 8, 7, 9, 8, 8, 7, 8, 8, 8, 8, 8, 7, 7, 8, 9, 8, 9, 8, 8, 8, 8, 7, 8, 9, 9, 8, 8, 8, 8, 8, 9

OFFSET

1,3

PROG

(PARI) A334200(n) = if(n<=3, n-1, if(isprime(n), 1+A334200((1+nextprime(1+n))/2), my(f=factor(n)); (apply(A334200, f[, 1])~ * f[, 2])));

CROSSREFS

Cf. A048673, A064097.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, May 13 2020

STATUS

approved

editing

#1 by Antti Karttunen at Sat Apr 18 10:31:29 EDT 2020

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved