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 A245024 #39 Jan 22 2020 06:13:56 %S A245024 10,16,22,26,28,34,40,46,50,52,56,58,64,70,76,82,86,88,92,94,100,106, %T A245024 112,116,118,124,130,134,136,142,146,148,154,160,166,170,172,176,178, %U A245024 184,190,196,202,206,208,214,220,226,232,236,238,244,250,254,256,260 %N A245024 Even numbers n for which lpf(n-1) < lpf(n-3), where lpf = least prime factor. %C A245024 By the definition, either a(n)==1 (mod 3) or, for every pair of primes (p,q), p>q>=3, a(n)==1 (mod p) and a(n) not==3 (mod q). %C A245024 Conjecture: All differences are 2,4 or 6 such that no two consecutive terms 2 (...,2,2,...), no two consecutive terms 4, while consecutive terms 6 occur 1,2,3 or 4 times; also consecutive pairs of terms 4,2 appear 1,2,3 or 4 times. %C A245024 Conjecture is verified up to n = 2.5*10^7. - _Vladimir Shevelev_ and _Peter J. C. Moses_, Jul 11 2014 %C A245024 The first comment is wrong as stated. This would fix it: for every pair of primes (p,q), p>q>=3, if a(n)==1 (mod p) then a(n) not==3 (mod q). Divisibility by 3 means 6m+4 is in the sequence for all m>0, and 6m never is, while 6m+2 is undetermined. Divisibility by 5 means 30m+26 is always in the sequence, and 30m+8 never is. This proves the above conjecture. - _Jens Kruse Andersen_, Jul 13 2014 %C A245024 Note that the sequence {a(n)-3} contains all odd primes, except for lesser primes in twin primes pairs (A001359). Other terms of {a(n)-3} are 25,49,55,85,91,... - _Vladimir Shevelev_, Jul 15 2014 %H A245024 Amiram Eldar, <a href="/A245024/b245024.txt">Table of n, a(n) for n = 1..10000</a> %p A245024 lpf:= n -> min(numtheory:-factorset(n)): %p A245024 select(n -> lpf(n-1) < lpf(n-3),[seq(2*k,k=3..1000)]); # _Robert Israel_, Jul 15 2014 %t A245024 lpf[n_] := FactorInteger[n][[1, 1]]; %t A245024 Reap[For[n = 6, n <= 300, n += 2, If[lpf[n-1] < lpf[n-3], Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Feb 25 2019 *) %Y A245024 Cf. A020639, A242719, A242720, A243937. %K A245024 nonn %O A245024 1,1 %A A245024 _Vladimir Shevelev_, Jul 10 2014 %E A245024 More terms from _Peter J. C. Moses_, Jul 10 2014