A164514 1 followed by numbers that are not squares.

1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79

Offset

1,2

Comments

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.

Links

Table of n, a(n) for n=1..72.

Formula

{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.

Prog

(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

Crossrefs

Cf. A000037, A255437, A255527.

Sequence in context: A072099 A046841 A244218 * A000037 A028761 A028809

Adjacent sequences: A164511 A164512 A164513 * A164515 A164516 A164517

Keyword

nonn,less,easy

Author

Jaroslav Krizek, Aug 14 2009

Extensions

Edited by R. J. Mathar, Aug 21 2009

Status

approved