login

Revision History for A284565

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

Showing entries 1-10 | older changes
#11 by Jon E. Schoenfield at Fri Oct 13 00:31:59 EDT 2017
STATUS

proposed

approved

#10 by Jon E. Schoenfield at Fri Oct 13 00:31:42 EDT 2017
STATUS

editing

proposed

#9 by Jon E. Schoenfield at Fri Oct 13 00:31:38 EDT 2017
MATHEMATICA

a[n_] := a[n] = Which[n == 0, 1, EvenQ@ n, a[n/2] + a[n/2 - 1], True, a[(n - 1)/2] - Mod[(n - 1)/2 - 1, 3] + 1]; Table[a[2 n], {n, 0, 97}] (* Michael De Vlieger, Apr 05 2017, after _Jean - François Alcover _ _ at A000360 *)

STATUS

approved

editing

#8 by N. J. A. Sloane at Thu Apr 06 21:22:06 EDT 2017
STATUS

proposed

approved

#7 by Michael De Vlieger at Wed Apr 05 18:37:38 EDT 2017
STATUS

editing

proposed

#6 by Michael De Vlieger at Wed Apr 05 18:37:34 EDT 2017
MATHEMATICA

a[n_] := a[n] = Which[n == 0, 1, EvenQ@ n, a[n/2] + a[n/2 - 1], True, a[(n - 1)/2] - Mod[(n - 1)/2 - 1, 3] + 1]; Table[a[2 n], {n, 0, 97}] (* Michael De Vlieger, Apr 05 2017, after _Jean - François Alcover _ at A000360 *)

STATUS

proposed

editing

#5 by Antti Karttunen at Wed Apr 05 12:57:05 EDT 2017
STATUS

editing

proposed

#4 by Antti Karttunen at Wed Apr 05 12:55:17 EDT 2017
LINKS

Antti Karttunen, <a href="/A284565/b284565.txt">Table of n, a(n) for n = 0..8192</a>

#3 by Antti Karttunen at Wed Apr 05 12:47:56 EDT 2017
FORMULA

Other identities. For all n >= 1:

A007306(n) = a(n-1) + A284566(n-1).

#2 by Antti Karttunen at Wed Apr 05 12:32:55 EDT 2017
NAME

allocated for Antti Karttunen

Bisection of A000360.

DATA

1, 1, 1, 2, 2, 2, 3, 2, 2, 4, 4, 3, 4, 4, 3, 3, 3, 4, 6, 5, 5, 7, 6, 4, 5, 6, 6, 6, 5, 5, 5, 3, 3, 6, 7, 6, 8, 9, 8, 7, 7, 9, 11, 9, 8, 10, 8, 5, 6, 8, 9, 9, 9, 10, 10, 7, 6, 9, 9, 7, 7, 7, 5, 4, 4, 6, 9, 8, 9, 12, 11, 8, 10, 13, 14, 13, 12, 13, 12, 8, 8, 13, 15, 13, 15, 17, 15, 12, 11, 14, 16, 13, 11, 13, 10, 6, 7, 10

OFFSET

0,4

FORMULA

a(n) = A000360(2n).

a(n) = A001222(A284563(n)).

PROG

(Scheme)

(define (A284565 n) (A001222 (A284563 n)))

(define (A284565 n) (A000360with_prep_0 (+ n n 1))) ;; See code in A284556.

CROSSREFS
KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Apr 05 2017

STATUS

approved

editing