cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A098948 Numbers where 7 is the only odd decimal digit.

This page as a plain text file.
%I A098948 #16 Jul 27 2021 15:12:50
%S A098948 7,27,47,67,70,72,74,76,77,78,87,207,227,247,267,270,272,274,276,277,
%T A098948 278,287,407,427,447,467,470,472,474,476,477,478,487,607,627,647,667,
%U A098948 670,672,674,676,677,678,687,700,702,704,706,707,708,720,722,724,726
%N A098948 Numbers where 7 is the only odd decimal digit.
%C A098948 This is a 10-automatic language. - _Charles R Greathouse IV_, Oct 03 2011
%H A098948 <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>
%p A098948 q:= n-> is(select(c-> c::odd, {convert(n, base, 10)[]})={7}):
%p A098948 select(q, [$1..887])[];  # _Alois P. Heinz_, Jul 27 2021
%t A098948 Select[Range[1000],Union[Select[IntegerDigits[#],OddQ]]=={7}&] (* _Harvey P. Dale_, May 24 2012 *)
%o A098948 (Perl) for (0..1000) {
%o A098948     print "$_, " if (/^[024678]*7[024678]*$/)
%o A098948 } # _Charles R Greathouse IV_, Oct 05 2011
%o A098948 (Python)
%o A098948 def ok(n): return set("13579") & set(str(n)) == {'7'}
%o A098948 print(list(filter(ok, range(727)))) # _Michael S. Branicky_, Jul 27 2021
%K A098948 base,easy,nonn
%O A098948 1,1
%A A098948 _Eric Angelini_, Oct 21 2004