OFFSET
1,2
COMMENTS
Believed to be a permutation of the odd integers.
The scatter-plot shows interesting helix-like lenticular structures. - Antti Karttunen, May 29 2016
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = {1}; Do[k = 1; While[Or[MemberQ[a, k], !IntegerQ@ Power[Mean[{a[[i - 1]], k}], 1/3]], k++]; AppendTo[a, k], {i, 2, 120}]; a (* Michael De Vlieger, May 29 2016 *)
PROG
(PARI) v=[1]; n=1; while(#v<200, s=(n+v[#v])/2; if(type(s)=="t_INT", if(ispower(s, 3)&&!vecsearch(vecsort(v), n), v=concat(v, n); n=0)); n++); v
(Haskell)
import Data.List (delete)
a259429 n = a259429_list !! (n-1)
a259429_list = 1 : f 1 [3, 5 ..] where
f x zs = g zs where
g (y:ys) = if a010057 ((x + y) `div` 2) == 1
then y : f y (delete y zs) else g ys
-- Reinhard Zumkeller, Jun 29 2015
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Derek Orr, Jun 26 2015
STATUS
approved