|
%I #8 Sep 08 2016 17:51:48
%S 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,
%T 9,9,9,9,10,10,10,10,10,10,10,11,11,11,11,11,11,11,11,12,12,12,12,12,
%U 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
%N After a(0)=0, each n occurs A260734(n) times.
%C Auxiliary function for computing A276572 & A276573.
%H Antti Karttunen, <a href="/A276571/b276571.txt">Table of n, a(n) for n = 0..10028</a>
%t 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 *)
%o (Scheme) (define (A276571 n) (let loop ((k 0)) (if (>= (A260733 (+ 1 k)) n) k (loop (+ 1 k)))))
%Y Cf. A260733, A260734, A276572, A276573.
%Y Cf. also A276581.
%K nonn
%O 0,3
%A _Antti Karttunen_, Sep 07 2016
|
