OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Select[Range[4000], Ceiling[Mean[IntegerDigits[#]]]==1&] (* Harvey P. Dale, Dec 31 2019 *)
PROG
(Haskell)
a178361 n = a178361_list !! (n-1)
a178361_list = [x | x <- [1..], a007953 x <= a055642 x]
-- Reinhard Zumkeller, May 06 2015
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, May 27 2010
STATUS
approved