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.

A156299 Primes where the first digit is greater than any other digit.

This page as a plain text file.
%I A156299 #6 Apr 03 2023 10:36:11
%S A156299 31,41,43,53,61,71,73,83,97,211,311,401,421,431,433,503,521,523,541,
%T A156299 601,613,631,641,643,653,701,733,743,751,761,811,821,823,827,853,857,
%U A156299 863,877,907,911,937,941,947,953,967,971,977,983
%N A156299 Primes where the first digit is greater than any other digit.
%H A156299 Harvey P. Dale, <a href="/A156299/b156299.txt">Table of n, a(n) for n = 1..1000</a>
%H A156299 Chris Caldwell, <a href="https://t5k.org/lists/small/1000.txt">The first 1000 Primes</a>
%e A156299 983 is a prime in which the first digit is greater than any other digit.
%t A156299 fdgQ[n_]:=Module[{idn=IntegerDigits[n],f},f=First[idn];Max[idn]==f&&And@@ Table[f>i,{i,Rest[idn]}]]; Select[Prime[Range[5,200]],fdgQ] (* _Harvey P. Dale_, Sep 18 2013 *)
%Y A156299 A000040
%K A156299 nonn,base
%O A156299 1,1
%A A156299 _Parthasarathy Nambi_, Feb 07 2009