login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A080715 Numbers n such that for any positive integers (a, b), if a * b = n then a + b is prime. 3
1, 2, 6, 10, 22, 30, 42, 58, 70, 78, 82, 102, 130, 190, 210, 310, 330, 358, 382, 442, 462, 478, 562, 658, 742, 838, 862, 970, 1038, 1222, 1282, 1318, 1618, 1810, 1870, 1978, 2038, 2062, 2098, 2242, 2398, 2458, 2578, 2902, 2938, 2962, 3018, 3082, 3322, 3642 (list; graph; refs; listen; history; internal format)
OFFSET

1,2

COMMENTS

Sequence includes all even, squarefree "idoneal" or "convenient" numbers (A000926); all members are even and squarefree except 1 (which is also idoneal).

Is it known, or can it be proved, that this sequence is infinite?

Let p and p+2 be twin primes. If 2p+1 is also prime, 2p is in this sequence. - T. D. Noe (noe(AT)sspectra.com), Jun 06 2006, Nov 26 2007

2*A045536 are the n with two prime factors. 2*A128279 are the n with three prime factors. 2*A128278 are the n with four prime factors. 2*A128277 are the n with five prime factors. 2*A128276 lists the least n having k prime factors.

REFERENCES

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 844.

G. Frei, Euler's convenient numbers, Math. Intell. Vol. 7 No. 3 (1985), p. 56.

LINKS

T. D. Noe, Table of n, a(n) for n = 1..1000

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

EXAMPLE

1 is the product of two positive integers in one way: 1 * 1. The sum of the multiplicands is 2, which is prime. 310 (2*5*31) is the product of two positive integers in 4 ways: 1 * 310, 2 * 155, 5 * 62 and 10 * 31. The sums of the pairs of multiplicands are 311, 157, 67 and 41, respectively; all are primes.

MATHEMATICA

t={}; Do[ds=Divisors[n]; If[EvenQ[Length[ds]], ok=True; k=1; While[k<=Length[ds]/2 && (ok=PrimeQ[ds[[k]]+ds[[ -k]]]), k++ ]; If[ok, AppendTo[t, n]]], {n, 2, 4000}]; t - T. D. Noe (noe(AT)sspectra.com), Jun 06 2006

CROSSREFS

Sequence in context: A186296 A140775 A077064 * A034168 A055745 A167512

Adjacent sequences:  A080712 A080713 A080714 * A080716 A080717 A080718

KEYWORD

nonn,nice

AUTHOR

Matthew Vandermast (ghodges14(AT)comcast.net), Mar 23 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 14 20:38 EST 2012. Contains 205663 sequences.