login
A number n is included if (p + n/p) is prime, where p is the largest prime that divides n.
3

%I #16 Mar 06 2024 04:47:15

%S 2,6,10,12,22,24,28,30,34,40,42,48,52,58,60,66,70,76,78,82,84,88,90,

%T 102,112,118,120,130,132,138,142,148,160,168,172,180,184,186,190,192,

%U 198,202,204,208,210,214,220,222,228,232,234,238,240,246,252,268,270,274

%N A number n is included if (p + n/p) is prime, where p is the largest prime that divides n.

%C All terms are even. - _Robert Israel_, Feb 04 2018

%H Robert Israel, <a href="/A140776/b140776.txt">Table of n, a(n) for n = 1..10000</a>

%e The largest prime dividing 48 is 3. Since 3 + 48/3 = 19 is prime, then 48 is included in this sequence.

%p filter:= proc(n) local p;

%p p:= max(numtheory:-factorset(n));

%p isprime(p+n/p)

%p end proc:

%p select(filter, 2*[$1..1000]); # _Robert Israel_, Feb 04 2018

%t fQ[n_] := Block[{p = Last@ First@ Transpose@ FactorInteger@n}, PrimeQ[p + n/p] == True]; Select[ Range[2, 279], fQ@# &] (* _Robert G. Wilson v_, May 30 2008 *)

%Y Cf. A140775, A140777.

%K nonn

%O 1,1

%A _Leroy Quet_, May 29 2008

%E More terms from _Robert G. Wilson v_, May 30 2008