%I #23 Feb 15 2024 01:52:45
%S 1,2,3,4,5,7,11,12,13,14,15,17,21,22,23,24,25,27,31,32,33,34,35,37,41,
%T 42,43,44,45,47,51,52,53,54,55,57,71,72,73,74,75,77,111,112,113,114,
%U 115,117,121,122,123,124,125,127,131,132,133,134,135,137,141,142
%N List of numbers whose digits contain no loops (version 1).
%C The digits 0, 6, 8 and 9 contain loops, but 1, 2, 3, 4 (written in "open" style), 5 and 7 do not.
%H T. D. Noe, <a href="/A001729/b001729.txt">Table of n, a(n) for n = 1..1000</a>
%H Robert Baillie and Thomas Schmelzer, <a href="https://library.wolfram.com/infocenter/MathSource/7166/">Summing Kempner's Curious (Slowly-Convergent) Series</a>, Mathematica Notebook kempnerSums.nb, Wolfram Library Archive, 2008.
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F Sum_{n>=1} 1/a(n) = 5.427161361994446672956800952211331066904630376796246807177210248900020978222... (calculated using Baillie and Schmelzer's kempnerSums.nb, see Links). - _Amiram Eldar_, Feb 15 2024
%t Select[Range[150], Intersection[{0, 6, 8, 9}, Union[IntegerDigits[#]]] == {} &] (* _T. D. Noe_, Aug 10 2012 *)
%t FromDigits/@Flatten[Table[Tuples[{1,2,3,4,5,7},n],{n,3}],1] (* _Harvey P. Dale_, Feb 01 2017 *)
%Y Cf. A001742 (version 2).
%K base,nonn,easy
%O 1,2
%A _N. J. A. Sloane_
%E Missing 42 and 44 added by _T. D. Noe_, Aug 10 2012