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 A082422 #10 Sep 25 2014 09:58:18 %S A082422 7,19,23,26,31,47,53,67,74,76,83,89,97,109,113,119,124,127,131,134, %T A082422 139,146,159,167,174,181,183,188,199,207,211,215,219,233,244,246,251, %U A082422 259,263,274,287,293,303,307,314,323,327,337,339,349,353,359,362,367,379,383,386 %N A082422 Numbers n such that P(n) > P(n+2) > P(n+1), where P(n) = largest prime factor of n (A006530). %D A082422 Antal Balog, On the largest prime factor of consecutive integers, Abstracts Amer. Math. Soc., 25 (No. 2, 2002), p. 337, #975-11-76. %H A082422 T. D. Noe, <a href="/A082422/b082422.txt">Table of n, a(n) for n = 1..1000</a> %H A082422 P. Erdős and C. Pomerance, <a href="http://www.math.dartmouth.edu/~carlp/PDF/paper17.pdf">On the largest prime factors of n and n+1</a>, Aequationes Math. 17 (1978), p. 311-321. [<a href="http://www.renyi.hu/~p_erdos/1978-29.pdf">alternate link</a>] %t A082422 With[{lfs=Table[FactorInteger[n][[-1,1]],{n,400}]},Flatten[ Position[ Partition[ lfs,3,1],_?(#[[1]]>#[[3]]>#[[2]]&),{1},Heads->False]]] (* _Harvey P. Dale_, Sep 25 2014 *) %Y A082422 Cf. A006530, A082417-A082421, A071869, A071870. %K A082422 nonn %O A082422 1,1 %A A082422 _N. J. A. Sloane_, Apr 25 2003