login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064552 a(0) = 1, a(n) = a(n-1) + 2*q(n) - n for n > 0, where q(n) = A064657(n) = q(|n-q(n-3)|) + q(|n-q(n-4)|) for n > 3, q(n) = 1 for n = 0, 1, 2, 3. 5
1, 2, 2, 1, 1, 4, 14, 31, 43, 44, 38, 31, 45, 56, 94, 105, 95, 96, 106, 109, 111, 140, 142, 171, 173, 174, 202, 229, 253, 232, 206, 187, 223, 210, 296, 271, 291, 360, 366, 451, 461, 468, 470, 477, 477, 534, 564, 567, 575, 532, 534, 589, 569, 622, 622, 693, 689, 640, 602, 567, 679 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

A quadratic level Hofstadter batrachian sequence as a minimal type Pisot used in the prime simulation formula.

This quartic level Hofstadter sequence is set as a x^4-x-1=0 type Pisot with nonlinear index addressing. These work well at cubic levels as well to give Pickover numbers.

LINKS

Jinyuan Wang, Table of n, a(n) for n = 0..866

MATHEMATICA

a[0] = q[0] = q[1] = q[2] = q[3] = 1; q[n_] := q[n] = q[Abs[n - q[n - 3]]] + q[Abs[n - q[n - 4]]]; a[n_] := a[n] = a[n - 1] + 2*(q[n] - n/2); Table[a[n], {n, 0, 70} ]

PROG

(ARIBAS): function qfunc(n: integer): integer; var r: integer; begin if n < 4 then r := 1; else r := qfunc(abs(n - qfunc(n - 3))) + qfunc(abs(n - qfunc( n - 4))); end; return r; end; function a064552(n: integer); var k, r: integer; begin if n = 0 then r := 1; else r := a064552(n - 1) + round(2*(qfunc(n) - n/2)); end; return r; end; for n := 1 to 60 do write(a064552(n), " "); end; .

CROSSREFS

Cf. A064550, A064551, A064657.

Sequence in context: A298261 A152937 A331315 * A209543 A178655 A178304

Adjacent sequences:  A064549 A064550 A064551 * A064553 A064554 A064555

KEYWORD

nonn,fini,full

AUTHOR

Roger L. Bagula, Oct 08 2001

EXTENSIONS

Corrected and extended by Vladeta Jovovic, Matthew Conroy and Klaus Brockhaus, Oct 09 2001

Sequence A064657, and thus the present one, is ill defined beyond n=866. Keyword 'fini' added by M. F. Hasler, Aug 28 2012

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 30 06:59 EDT 2020. Contains 333119 sequences. (Running on oeis4.)