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!)
A033293 A Connell-like sequence: take 1 number = 1 (mod Q), 2 numbers = 2 (mod Q), 3 numbers = 3 (mod Q), etc., where Q = 8. 6
1, 2, 10, 11, 19, 27, 28, 36, 44, 52, 53, 61, 69, 77, 85, 86, 94, 102, 110, 118, 126, 127, 135, 143, 151, 159, 167, 175, 176, 184, 192, 200, 208, 216, 224, 232, 233, 241, 249, 257, 265, 273, 281, 289, 297, 298, 306, 314, 322, 330, 338, 346, 354, 362, 370, 371, 379, 387, 395, 403, 411 (list; table; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
Gary E. Stevens, A Connell-Like Sequence, J. Integer Sequences, 1 (1998), #98.1.4.
MATHEMATICA
row[1] = {1}; row[n_] := row[n] = Table[row[n-1][[-1]] + 8k + 1, {k, 0, n-1}]; Table[row[n], {n, 1, 11}] // Flatten (* Jean-François Alcover, Jan 25 2013 *)
PROG
(Haskell)
a033293 n k = a033293_tabl !! (n-1) !! (k-1)
a033293_row n = a033293_tabl !! (n-1)
a033293_tabl = f 1 [1..] where
f k xs = ys : f (k+1) (dropWhile (<= last ys) xs) where
ys = take k $ filter ((== 0) . (`mod` 8) . (subtract k)) xs
-- Reinhard Zumkeller, Jan 18 2012 2011
CROSSREFS
Cf. A054552 (left edge), A001107 (right edge), A204674 (row sums), A204675 (central terms).
Sequence in context: A309942 A282093 A032930 * A231501 A051373 A131096
KEYWORD
nonn,easy,nice,tabl
AUTHOR
EXTENSIONS
More terms from jeroen.lahousse(AT)icl.com
Offset changed by Reinhard Zumkeller, Jan 18 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 26 13:41 EST 2024. Contains 370352 sequences. (Running on oeis4.)