|
%I
%S 1,2,7,14,31,62,113,226,233,466,647,1294,1487,2974,4919,6329,7951,
%T 12658,15902,26329,26833,47737,52658,53623,53666,95474,107246,128959,
%U 135697,142327,271394,284654,715177,1312777,1430354,1474657,2625554
%N a(n) is square mod a(i), i < n.
%C Apparently A034698 is a subsequence and all elements are products of elements of A034698.
%o (Haskell)
%o a034791 n = a034793_list !! (n-1)
%o a034791_list = 1 : f [2..] [1] where
%o f (x:xs) ys | and $ map (flip isSquMod x) ys = x : f xs (x:ys)
%o | otherwise = f xs ys
%o isSquMod u v = u `mod` v `elem` (map ((`mod` v) . (^ 2)) [0..v-1])
%o -- _Reinhard Zumkeller_, Mar 28 2012
%Y Cf. A034698.
%Y Cf. A034793, A034903.
%K nonn
%O 1,2
%A _David W. Wilson_
|
