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 A073073 #19 Apr 06 2020 01:51:15
%S A073073 4,5,6,7,8,11,14,21,25,89,97,110,116,121,177,235,294,784,1039,1454,
%T A073073 1629,3460,5611,6174,7133,10922,12287,12581,16311
%N A073073 Numbers m such that the minimal value of abs(2^m - 3^x) > 0 is prime (i.e., m such that A064024(m) is prime).
%t A073073 Do[k = 0; While[Abs[2^n - 3^k] > Abs[2^n - 3^(k + 1)], k++ ]; If[PrimeQ[Abs[2^n - 3^k]], Print[n]], {n, 1, 4000}] (* _Stefan Steinerberger_, Jan 22 2006 *)
%Y A073073 Cf. A064024.
%K A073073 nonn,more
%O A073073 1,1
%A A073073 _Benoit Cloitre_, Aug 17 2002
%E A073073 a(19)-a(22) from _Stefan Steinerberger_, Jan 22 2006
%E A073073 a(23)-a(29) from _Jinyuan Wang_, Apr 05 2020