A276571 After a(0)=0, each n occurs A260734(n) times.

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

Offset

0,3

Comments

Auxiliary function for computing A276572 & A276573.

Links

Antti Karttunen, Table of n, a(n) for n = 0..10028

Mathematica

Table[Table[n, {Length[#] - 1 &@ NestWhileList[# - (If[First@ # > 0, 1, Length[ First@ Split@ #] + 1] &@ SquaresR[Range@ 4, #]) &, ((n + 1)^2) - 1, # != (n^2) - 1 &]}], {n, 15}] // Flatten (* Michael De Vlieger, Sep 08 2016 *)

Prog

(Scheme) (define (A276571 n) (let loop ((k 0)) (if (>= (A260733 (+ 1 k)) n) k (loop (+ 1 k)))))

Crossrefs

Cf. A260733, A260734, A276572, A276573.

Cf. also A276581.

Sequence in context: A062571 A277903 A102515 * A066063 A123087 A071868

Adjacent sequences: A276568 A276569 A276570 * A276572 A276573 A276574

Keyword

nonn

Author

Antti Karttunen, Sep 07 2016

Status

approved