OFFSET
1,1
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
Juri-Stepan Gerasimov, Apr 22 2010
EXTENSIONS
Corrected (6 inserted) and extended beyond 132 by R. J. Mathar, Apr 26 2010
STATUS
approved