OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000 (corrected by Sean A. Irvine)
MATHEMATICA
m7Q[n_]:=Module[{f=Transpose[FactorInteger[n]][[1]]}, Length[f]==2 && Mod[ f[[2]], f[[1]]]==7]; Select[Range[10000], And[m7Q[#], SquareFreeQ[#]] &] (* Harvey P. Dale, May 02 2016; corrected by Michael De Vlieger, Jul 31 2023 *)
nn = 8900; m = 7; Union@ Flatten@ Table[p = Prime[i]; Table[q = Prime[j]; If[Mod[q, p] == m, p q, Nothing], {j, i + 1, PrimePi[nn/p]}], {i, PrimePi[nn]}] (* Michael De Vlieger, Jul 31 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Oct 13 2001
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 02 2016
Original data restored, name clarified, and offset corrected by Sean A. Irvine, Jul 31 2023
STATUS
approved