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

Author

Jaroslav Krizek, Aug 14 2009

Keywords

• nonn
• less
• easy

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.

Crossrefs

Cf. A000037, A255437, A255527.

Programs

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

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.

Extensions

Edited by R. J. Mathar, Aug 21 2009