OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
With[{s = Array[Boole[CompositeQ@ #] Total@ Flatten@ Map[ConstantArray[#1, #2] & @@ # &, FactorInteger[#]] &, 10^5]}, Select[Prime@ Range[600], Function[p, FirstPosition[s, _?(# == 4 p &)][[1]] - FirstPosition[s, _?(# == 3 p &)][[1]] == 7]]] (* Michael De Vlieger, Jul 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Jul 22 2017
EXTENSIONS
More terms from Altug Alkan, Jul 23 2017
Edited by Robert Israel, Jul 24 2017
STATUS
approved