login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034791 a(n) is square mod a(i), i < n. 3

%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_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified August 28 09:30 EDT 2014. Contains 246166 sequences.