login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A304493 a(0) = 1; a(n) = a(n-a(floor(n/2))) + a(n-a(floor(n/4))). 1
1, 2, 3, 5, 5, 8, 7, 11, 13, 12, 14, 18, 19, 20, 17, 19, 23, 24, 27, 28, 26, 31, 22, 27, 32, 34, 35, 37, 42, 46, 46, 45, 40, 40, 45, 40, 44, 48, 49, 55, 52, 56, 60, 65, 57, 64, 70, 72, 69, 70, 68, 64, 64, 67, 69, 67, 72, 71, 75, 80, 73, 79, 89, 84, 88, 94, 100, 94, 84, 96, 116, 117, 106, 116, 107, 106 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Robert Israel, Table of n, a(n) for n = 0..10000

Ilya Gutkovskiy, Scatter plot of a(n) up to n=50000

Index entries for Hofstadter-type sequences

MAPLE

f:= proc(n) option remember;

  procname(n-procname(floor(n/2)))+procname(n-procname(floor(n/4)))

end proc:

f(0):= 1;

map(f, [$0..100]); # Robert Israel, Dec 02 2019

MATHEMATICA

a[n_] := a[n] = a[n - a[Floor[n/2]]] + a[n - a[Floor[n/4]]]; a[0] = 1; Table[a[n], {n, 0, 75}]

CROSSREFS

Cf. A002265, A004526, A005185, A083662, A244477.

Sequence in context: A209187 A166250 A174088 * A208323 A067284 A353272

Adjacent sequences:  A304490 A304491 A304492 * A304494 A304495 A304496

KEYWORD

nonn,look

AUTHOR

Ilya Gutkovskiy, May 13 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 20 01:04 EDT 2022. Contains 353847 sequences. (Running on oeis4.)