OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..250
PROG
(Haskell)
import Data.List (sort)
a232501 n = a232501_list !! (n-1)
a232501_list = filter f [1..] where
f x = all ((== 1) . a010054) $ init $ sort $
map (abs . (x -) . (^ 2) . (+ (a000196 x))) [-1..2]
-- Reinhard Zumkeller, Mar 16 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Feb 23 2014
STATUS
approved