[go: up one dir, main page]

login
Revision History for A140775 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Numbers k > 1 such that p + k/p is prime for every prime p that divides k.
(history; published version)
#21 by Peter Luschny at Wed Mar 06 04:47:45 EST 2024
STATUS

reviewed

approved

#20 by Joerg Arndt at Wed Mar 06 01:57:28 EST 2024
STATUS

proposed

reviewed

#19 by Michel Marcus at Wed Mar 06 01:18:47 EST 2024
STATUS

editing

proposed

#18 by Michel Marcus at Wed Mar 06 01:18:44 EST 2024
MATHEMATICA

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

STATUS

approved

editing

#17 by Joerg Arndt at Thu Jan 11 03:35:14 EST 2024
STATUS

reviewed

approved

#16 by Michel Marcus at Thu Jan 11 00:59:29 EST 2024
STATUS

proposed

reviewed

#15 by Robert Israel at Wed Jan 10 09:43:32 EST 2024
STATUS

editing

proposed

#14 by Robert Israel at Wed Jan 10 09:43:25 EST 2024
NAME

Number Numbers k > 1 such that p + k/p is prime for every prime p that divides k.

STATUS

proposed

editing

#13 by Joerg Arndt at Wed Jan 10 00:25:38 EST 2024
STATUS

editing

proposed

#12 by Joerg Arndt at Wed Jan 10 00:25:31 EST 2024
NAME

A number Number k > 1 is included if such that p + k/p is prime for every prime p that divides k.

STATUS

proposed

editing