OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
MATHEMATICA
Prepend[Select[Range@ 144, SquareFreeQ@ # && SquaresR[2, #] == 0 &], 1] (* Michael De Vlieger, Dec 02 2015 *)
PROG
(Haskell)
a084349 n = a084349_list !! (n-1)
a084349_list = 1 : filter (\x -> all (== 0) $ map (a010052 . (x -)) $
takeWhile (<= x) a000290_list) a005117_list
-- Reinhard Zumkeller, Dec 11 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 21 2003
STATUS
approved