OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
Take[ Sort[ Times @@@ Select[ Subsets[ Array[ Prime, 290], {2}], IntegerQ[ Sqrt[ #[[2]] + #[[1]]]] &]], 48]
nn=4000; fQ[n_] := Module[{p, e}, If[n < 2, False, {p, e} = Transpose[FactorInteger[n]]; If[Total[e] != 2, False, IntegerQ[Sqrt[Total[p*e]]]]]]; Select[Range[nn], fQ] (* T. D. Noe, Mar 22 2012 *)
PROG
(Haskell)
a141755 n = a141755_list !! (n-1)
a141755_list = filter f a001358_list where
f x = a010052' (spf + x `div` spf) == 1 where spf = a020639 x
-- Reinhard Zumkeller, Apr 06 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
David Spector (spectord(AT)ccsu.edu) and Robert G. Wilson v, Aug 31 2008
STATUS
approved