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 A175071 #4 May 05 2015 18:42:42
%S A175071 1,3,4,6,8,10,11,12,14,16,17,18,20,22,23,24,26,27,29,30,32,34,35,37,
%T A175071 38,40,41,42,44,46,47,48,50,51,53,54,56,57,59,60,62,64,65,67,68,70,71,
%U A175071 72,74,76,77,79,80,82,83,84,86,87,89,90,92,93,95,97,98,100,101,102
%N A175071 Natural numbers m with result 1 under iterations of {r mod (max prime p < r)} starting at r = m.
%C A175071 Complement of A175072. Union of A175073 and A175074. [From _Jaroslav Krizek_, Jan 30 2010]
%e A175071 Iteration procedure for a(6) = 10: 10 mod 7 = 3, 3 mod 2 = 1. Iteration procedure for a(7) = 11: 11 mod 7 = 4, 4 mod 3 = 1.
%t A175071 nn1Q[n_]:=Last[NestWhileList[Mod[#,NextPrime[#,-1]]&,n,#>1&]]!=0; Select[ Range[ 110],nn1Q] (* _Harvey P. Dale_, May 05 2015 *)
%K A175071 nonn
%O A175071 1,2
%A A175071 _Jaroslav Krizek_, Jan 23 2010