OFFSET
1,1
MATHEMATICA
f[x_, d_, m_] := Mod[x/d, m] or alternatively f[x_, d_, m_] := m*(x/(d*m)-Floor[x/(d*m)]); Do[If[PrimeQ[n]&&Equal[Mod[n, 10], 9]]&&!Greater[f[n, 7, 10], 5], Print[n]], {n, 1, 1000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 07 2004
EXTENSIONS
Edited by Labos, E., Jan 24 2004
STATUS
approved