A193096 Numbers that cannot be written as concatenation of two nonzero squares in decimal representation.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 15, 16, 17, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72

Offset: 1

Author

Reinhard Zumkeller, Jul 17 2011

Keywords

• nonn
• base
• changed

Comments

Complement of A191933; A193095(a(n)) = 0.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A193095, A191933.

Programs

Haskell

import Data.List (elemIndices)
a193096 n = a193096_list !! (n-1)
a193096_list = elemIndices 0 $ map a193095 [0..]

Mathematica

Complement[Range[75], Union[Flatten[Table[FromDigits[Flatten[{IntegerDigits[m^2], IntegerDigits[n^2]}]], {m, 3}, {n, 3}]]]] (* Alonso del Arte, Aug 11 2011 *)

Extensions

Incorrect terms removed and missing terms added by Jaroslav Krizek, Aug 12 2011