A273191 a(n) is the length of the n-th run of A273190.

1, 1, 1, 6, 1, 3, 4, 2, 6, 1, 7, 4, 4, 9, 1, 10, 4, 8, 9, 3, 14, 2, 12, 9, 7, 34, 7, 11, 16, 4, 20, 5, 17, 14, 8, 24, 1, 23, 12, 14, 23, 3, 28, 8, 20, 21, 9, 30, 4, 28, 17, 15, 32, 2, 34, 13, 23, 28, 8, 38, 7, 31, 24, 16, 40, 1, 41, 18, 24, 37, 7

Offset

1,4

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Mathematica

Length /@ Split@ Table[Count[Range[0, n - 1], m_ /; IntegerQ@ Sqrt[m + n]], {n, 0, 10^3}] (* Michael De Vlieger, May 24 2016 *)

Prog

(Haskell)
import Data.List (group)
a273191 n = a273191_list !! (n - 1)
a273191_list = (map length . group) $ map a273190 [0..]
-- Peter Kagey, Jun 07 2016

Crossrefs

Cf. A273190.

Sequence in context: A211453 A218583 A181166 * A086316 A021167 A213204

Adjacent sequences: A273188 A273189 A273190 * A273192 A273193 A273194

Keyword

easy,nonn,look

Author

Alec Jones, May 17 2016

Status

approved