|
|
|
|
2, 51, 70, 101, 122, 145, 318, 333, 344, 369, 402, 453, 456, 485, 496, 573, 578, 719, 782, 809, 852, 977, 1062, 1141, 1264, 1279, 1400, 1451, 1470, 1539, 1582, 1671, 1678, 1683, 1720, 1755, 1766, 1779, 1780, 1795, 1888, 1899, 1942, 1979, 2006, 2061, 2078
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(2)=51: A180076(49..51) = (15,46,139);
a(39)=a(38)+1=1780: A180076(1777..1780) = (494,1483,4450,13331).
|
|
PROG
|
(Haskell)
import Data.List (elemIndices)
a180110 n = a180110_list !! (n-1)
a180110_list = map (+ 2) $ elemIndices True $ zipWith (&&) zs (tail zs)
where zs = zipWith (<) a180076_list (tail a180076_list)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|