OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Wikipedia, Blum integer
MATHEMATICA
Take[Transpose[SortBy[{#[[1]], #[[2]], #[[1]]#[[2]]}&/@With[{c=Select[ 4*Range[ 0, 200]+3, PrimeQ]}, Subsets[c, {2}]], Last]][[1]], 90] Harvey P. Dale, May 20 2012
PROG
(Haskell)
a195758 = a020639 . a016105
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 23 2011
STATUS
approved