cp's OEIS Frontend

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.

A245024 Even numbers n for which lpf(n-1) < lpf(n-3), where lpf = least prime factor.

This page as a plain text file.
%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