1,2
Complement of A000290 for n >= 1.
a(n) = A255437(A255527(n)) and A255437(m) < a(n) for m < A255527(n), i.e. record values in A255437.
Table of n, a(n) for n=1..72.
{1} Union A000037.
a(n) = A000037(n-1) = n-1+floor(1/2 + sqrt(n - 1)) = n-1 + floor( sqrt(n-1 + floor( sqrt(n - 1) ))) for n > 1.
(Haskell)
a164514 n = a164514_list !! (n-1)
a164514_list = 1 : a000037_list
-- Reinhard Zumkeller, Mar 23 2015
(PARI) is(n)=!issquare(n) || n==1 \\ Charles R Greathouse IV, Sep 01 2015
Cf. A000037, A255437, A255527.
Sequence in context: A072099 A046841 A244218 * A000037 A028761 A028809
Adjacent sequences: A164511 A164512 A164513 * A164515 A164516 A164517
nonn,less,easy
Jaroslav Krizek, Aug 14 2009
Edited by R. J. Mathar, Aug 21 2009
approved