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.
%I A178550 #22 Aug 29 2025 08:07:12
%S A178550 13,17,19,31,41,61,71,103,107,109,127,137,139,149,157,163,167,173,179,
%T A178550 193,197,199,241,251,271,281,313,317,331,401,419,421,431,461,491,521,
%U A178550 541,571,601,613,617,619,631,641,661,691,701,719,751,761,821,881,919,941,971,991
%N A178550 Primes with exactly one digit 1.
%H A178550 Daniel Starodubtsev, <a href="/A178550/b178550.txt">Table of n, a(n) for n = 1..10000</a>
%F A178550 a(n) >> n^k where k = log(10)/log(9) = 1.04795.... - _Charles R Greathouse IV_, Jan 21 2025
%t A178550 Select[Prime[Range[200]],Count[IntegerDigits[#],1]==1 &] (* _Stefano Spezia_, Aug 29 2025 *)
%o A178550 (Python)
%o A178550 from sympy import isprime
%o A178550 print([i for i in range(1000) if str(i).count('1') == 1 and isprime(i)]) # _Daniel Starodubtsev_, Mar 29 2020
%Y A178550 Intersection of A043493 and A000040.
%Y A178550 Cf. A038618, A178551, A178552, A178553, A178554, A178555, A178556, A178557, A178558.
%K A178550 nonn,base,changed
%O A178550 1,1
%A A178550 _Lekraj Beedassy_, May 29 2010