OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
spQ[n_]:=Module[{fi=Transpose[FactorInteger[n]], a, b}, a=fi[[1]]; b= fi[[2]]; Length[a]==2&&Max[b]==1&&Mod[a[[2]], a[[1]]]==8]; Select[Range[ 8000], spQ] (* Harvey P. Dale, Sep 16 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Oct 13 2001
EXTENSIONS
Offset corrected and name clarified by Sean A. Irvine, Jul 31 2023
STATUS
approved
