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 A081429 #6 Mar 30 2012 17:30:54
%S A081429 138197,207227,621679,621883,633383,760079,829177,863711,898253,
%T A081429 978863,1035499,1036471,1209191,1451059,1566179,1658309,1658353,
%U A081429 1761407,1794229,1796503,1827479,1900147,2015303,2029439,2070997,2072893
%N A081429 Class 10- primes.
%D A081429 R. K. Guy, Unsolved Problems in Number Theory, A18.
%H A081429 R. J. Mathar, <a href="/A081429/b081429.txt">Table of n, a(n) for n = 1..1188</a>
%t A081429 PrimeFactors[n_Integer] := Flatten[Table[ #[[1]], {1}] & /@ FactorInteger[n]]; f[n_Integer] := Block[{m = n}, If[m == 0, m = 1, While[ IntegerQ[m/2], m /= 2]; While[ IntegerQ[m/3], m /= 3]]; Apply[Times, PrimeFactors[m] - 1]]; ClassMinusNbr[n_] := Length[NestWhileList[f, n, UnsameQ, All]] - 3; Prime[ Select[ Range[200000], ClassMinusNbr[ Prime[ # ]] == 10 &]]
%Y A081429 Cf. A005113, A056637, A005109, A005110, A005111, A005112, A081424, A081425, A081426, A081427, A081428, A081430.
%K A081429 nonn
%O A081429 1,1
%A A081429 _Robert G. Wilson v_, Mar 20 2003