OFFSET
1,1
COMMENTS
MAPLE
isA007510 := proc(n) if isprime(n) then not isprime(n+2) and not isprime(n-2) ; else false; end if; end proc: isA014574 := proc(n) isprime(n+1) and isprime(n-1) ; end proc: isA167706 := proc(n) isA007510(n) or isA014574(n) ; end proc: isA167759 := proc(n) isA167706(numtheory[tau](n)) ; end proc: for n from 1 to 100 do if isA167759(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Nov 16 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 11 2009
EXTENSIONS
Edited by Jon E. Schoenfield, May 10 2019
STATUS
approved