cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A215782 Odd tribonacci non-divisors.

This page as a plain text file.
%I A215782 #20 Feb 21 2020 20:04:13
%S A215782 27,81,91,103,135,163,189,199,203,221,243,247,273,297,305,309,351,371,
%T A215782 377,397,405,421,455,459,489,513,515,551,559,567,597,609,621,637,663,
%U A215782 675,721,729,741,757,779,783,815,819,837,883,891,915,927,945,991,995,999
%N A215782 Odd tribonacci non-divisors.
%C A215782 Odd numbers that do not divide any term of A000213. - _N. J. A. Sloane_, Aug 23 2012
%C A215782 There are several sequences that have the name "tribonacci". Sequence A000073 is another, but that one has terms divisible by any number. - _T. D. Noe_, Aug 28 2012
%H A215782 T. D. Noe, <a href="/A215782/b215782.txt">Table of n, a(n) for n = 1..1000</a>
%H A215782 Project Euler, <a href="http://projecteuler.net/problem=225">Problem #225: Tribonacci non-divisors</a>
%t A215782 t = {}; Do[a = {1, 1, 1}; a0 = a; done = False; While[s = Total[a]; a = RotateLeft[a]; a[[-1]] = Mod[s, n]; If[a[[-1]] == 0, done = True]; a != a0 && ! done]; If[! done, AppendTo[t, n]], {n, 1, 1087, 2}]; t (* _T. D. Noe_, Aug 28 2012 *)
%o A215782 (PARI) is(n)=if(n%2==0 || n<9, return(0)); my(a=1,b=1,c=3,t=4); while(c!=1 || b!=1 || a!=1, [a,b,c]=[b,c,(a+b+c)%n]; if(c==0, return(0))); 1 \\ _Charles R Greathouse IV_, Jan 12 2017
%Y A215782 Cf. A000213, A046735.
%K A215782 nonn
%O A215782 1,1
%A A215782 _V. Raman_, Aug 23 2012