|
|
4, 19, 39, 59, 70, 72, 74, 76, 78, 79, 80, 82, 84, 86, 88, 99, 119, 139, 159, 179, 204, 234, 264, 294, 311, 314, 317, 320, 323, 324, 326, 329, 332, 335, 338, 354, 384, 414, 444, 474, 504, 534, 564, 594, 611, 614, 617, 620, 623, 624
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
A007376(a(n)) = 4.
|
|
|
LINKS
|
_Reinhard Zumkeller_, Table of n, a(n) for n = 1..10000
|
|
|
PROG
|
(Haskell)
import Data.List (elemIndices)
a031291 n = a031291_list !! (n-1)
a031291_list = map (+ 1) $ elemIndices 4 a007376_list
-- Reinhard Zumkeller, Jul 28 2011
|
|
|
CROSSREFS
|
Cf. A193428; A031287, A031288, A031289, A031290, A031292, A031293, A031294, A031295, A031296.
Sequence in context: A028564 A003338 A047715 * A210374 A134538 A024013
Adjacent sequences: A031288 A031289 A031290 * A031292 A031293 A031294
|
|
|
KEYWORD
|
nonn,less,base
|
|
|
AUTHOR
|
Clark Kimberling
|
|
|
STATUS
|
approved
|
|
