%I #8 Aug 14 2020 13:55:43
%S 2,4,8,12,16,20,25,29,34,39,44,49,55,60,65,71,82,88,94,105,111,117,
%T 123,136,142,148,154,167,173,180,186,193,199,206,212,219,225,232,239,
%U 252,259,266,279,286,293,300,307,314,321,328,335,342,349,356,363,370
%N Numbers n such that A216377(n) = 1.
%H Alois P. Heinz, <a href="/A221707/b221707.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[2,400],IntegerDigits[#!,#][[1]]==1&] (* _Harvey P. Dale_, Aug 14 2020 *)
%Y Cf. A216377, A221708.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jan 25 2013
%E More terms from _Alois P. Heinz_, Jan 28 2013