A193714 - OEIS

%I #8 Jul 13 2013 12:04:14

%S 1,3,5,8,10,12,14,16,19,21,24,26,28,31,33,36,38,40,43,45,48,50,53,55,

%T 57,60,62,65,67,69,72,74,77,79,81,83,85,88,90,93,95,97,100,102,105,

%U 107,109,112,114,117,119,122,124,126,129,131,134,136,138,141,143

%N Positions of squares (A000290) in the union of squares and triangular numbers (A005214).

%C A010052(A005214(a(n))) = 1.

%H Reinhard Zumkeller, <a href="/A193714/b193714.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o import Data.List (elemIndex)

%o import Data.Maybe (fromJust)

%o a193714 n = a193714_list !! (n-1)

%o a193714_list =

%o    map ((+ 1) . fromJust . (`elemIndex` a005214_list)) $ tail a000290_list

%Y Cf. A193715.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Aug 03 2011