|
%I #29 Jul 23 2021 10:16:37
%S 7,17,27,37,47,57,67,70,71,72,73,74,75,76,77,78,79,87,97,107,117,127,
%T 137,147,157,167,170,171,172,173,174,175,176,177,178,179,187,197,207,
%U 217,227,237,247,257,267,270,271,272,273,274,275,276,277,278,279,287
%N Numbers that contain at least one 7.
%C Subsequence of primes is A257668. - _Bernard Schott_, Jul 21 2021
%H Muniru A Asiru, <a href="/A011537/b011537.txt">Table of n, a(n) for n = 1..5000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n) ~ n. - _Charles R Greathouse IV_, Feb 12 2017
%t Select[Range[300],DigitCount[#,10,7]>0&] (* _Harvey P. Dale_, Mar 29 2016 *)
%o (PARI) is(n)=!!setsearch(Set(digits(n)), 7) \\ _Charles R Greathouse IV_, Feb 12 2017
%o (GAP) Filtered([1..280],n->7 in ListOfDigits(n)); # _Muniru A Asiru_, Feb 23 2019
%o (Python)
%o def ok(n): return '7' in str(n)
%o print(list(filter(ok, range(290)))) # _Michael S. Branicky_, Jul 17 2021
%Y Complement of A052419.
%Y Cf. A257668.
%K nonn,base,easy
%O 1,1
%A _N. J. A. Sloane_
|
