OFFSET

1,1

COMMENTS

All terms are even. - Robert Israel, Feb 04 2018

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

EXAMPLE

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

MAPLE

filter:= proc(n) local p;

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

isprime(p+n/p)

end proc:

select(filter, 2*[$1..1000]); # Robert Israel, Feb 04 2018

MATHEMATICA

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 *)

CROSSREFS

KEYWORD

nonn

AUTHOR

Leroy Quet, May 29 2008

EXTENSIONS

More terms from Robert G. Wilson v, May 30 2008

STATUS

approved