OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..250
Eric Weisstein's World of Mathematics, Sexy Primes. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- N. J. A. Sloane, Mar 07 2021]
EXAMPLE
a(10) = 667 = 23 * 29;
a(11) = 1001 = 7 * 11 * 13;
a(12) = 1147 = 31 * 37;
a(13) = 1183 = 7 * 13^2.
MATHEMATICA
spf6Q[n_]:=With[{fi=FactorInteger[n]}, fi[[-1, 1]]-fi[[1, 1]]==6]; Select[Range[12000], spf6Q] (* Harvey P. Dale, May 14 2024 *)
PROG
(Haskell)
a195118 n = a195118_list !! (n-1)
a195118_list = filter f [3, 5..] where
f x = last pfs - head pfs == 6 where pfs = a027748_row x
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 13 2011
STATUS
approved