|
|
A176651
|
|
Numbers k such that both semiprime(k)/prime(j+1) and semiprime(k+1)/prime(j) are prime for some j.
|
|
0
|
|
|
3, 5, 6, 7, 10, 11, 15, 19, 20, 23, 24, 32, 46, 57, 63, 65, 69, 77, 85, 86, 98, 99, 108, 119, 123, 127, 130, 131, 132, 140, 150, 154, 161, 166, 167, 193, 205, 217, 233, 237, 264, 276, 280, 303, 307, 326, 331, 332, 339, 343, 362, 368, 369, 380, 382, 385, 386, 415
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
3 is a term because semiprime(3)/prime(1+1) = 6/3 = 2 (prime) and semiprime(3+1)/prime(1) = 10/2 = 5 (prime);
5 is a term because semiprime(5)/prime(3+1) = 14/7 = 2 (prime) and semiprime(5+1)/prime(3) = 15/5 = 3 (prime).
|
|
MAPLE
|
isA176651 := proc(n) pfsn := convert(numtheory[factorset]( A001358(n) ), list) ; pfsn1 := convert(numtheory[factorset]( A001358(n+1) ), list) ; op(1, pfsn) = nextprime( op(1, pfsn1)) or op(1, pfsn) = nextprime( op(-1, pfsn1)) or op(-1, pfsn) = nextprime( op(1, pfsn1)) or op(-1, pfsn) = nextprime( op(-1, pfsn1)) ; end proc: for n from 1 to 600 do if isA176651(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Apr 26 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected (6 inserted) and extended beyond 132 by R. J. Mathar, Apr 26 2010
|
|
STATUS
|
approved
|
|
|
|