

A077136


Composite numbers n whose proper divisors (excluding 1 and n) are all of the form p or p+1, with p prime.


2



4, 6, 8, 9, 10, 12, 14, 15, 16, 21, 22, 24, 25, 26, 28, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 76, 77, 82, 85, 86, 87, 91, 93, 94, 95, 106, 111, 115, 118, 119, 121, 122, 123, 124, 129, 133, 134, 141, 142, 143, 145, 146, 148, 155, 158, 159, 161
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

k is a member if (1) k = p*q p, q are primes. (2) k = 4*p and p, 2p1 are primes. Are there any other prime signatures k could take?
The only numbers in the sequence that are neither a semiprime nor of the form 4p (where 2p1 is also prime) are 16 and 24. If n has pq as a proper divisor, with p and q odd primes (not necessarily distinct), neither pq nor pq1 can be prime. Likewise 16 cannot be a proper factor. Other than the two specified cases, this leaves n = 8p, where 2p1 and 4p1 are primes. p = 2 or 3 gives the exceptional cases 16 and 24, respectively. Any other prime must be == 1 or 2 (mod 3); if 1, then 4p1 is divisible by 3 and if 2, then 2p1 is divisible by 3.  Franklin T. AdamsWatters, Jul 28 2007


LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000


MATHEMATICA

seqQ[n_] := CompositeQ[n] && AllTrue[Most @ Rest @ Divisors[n], PrimeQ[#]  PrimeQ[#  1] &]; Select[Range[161], seqQ] (* Amiram Eldar, Dec 10 2019 *)


PROG

(PARI) for(n=1, 200, v=divisors(n):s=0:for(k=2, length(v)1, if(isprime(v[k])isprime(v[k]1), s=s+1)): if(s&&s==length(v)2, print1(n", ")))


CROSSREFS

Cf. A077135.
Sequence in context: A202259 A050655 A117098 * A098216 A341321 A063806
Adjacent sequences: A077133 A077134 A077135 * A077137 A077138 A077139


KEYWORD

nonn


AUTHOR

Amarnath Murthy, Oct 29 2002


EXTENSIONS

Corrected and extended by Ralf Stephan, Mar 23 2003


STATUS

approved



