%I #14 Jul 28 2020 07:01:30
%S 14,19,21,23,37,50,56,65,67,76,78,80,86,94,109,111,112,125,131,140,
%T 142,143,152,157,159,160,169,171,173,179,185,199,211,220,222,223,236,
%U 242,248,254,263,265,266,275,277,286,288,289,298,300,302,308,314
%N Positions of multiples of 8 in A204922 (differences of Fibonacci numbers).
%C For a guide to related sequences, see A205840.
%H Robert Israel, <a href="/A205866/b205866.txt">Table of n, a(n) for n = 1..10000</a>
%e In A204922=(1,2,1,4,3,2,7,6,5,3,12,11,...), multiples of 8 are in positions 14,19,21,... See the example at A205867.
%p R:= select(t -> combinat:-fibonacci(t[1])-combinat:-fibonacci(t[2]) mod 8 =0, [seq(seq([i,j],i=0..11),j=0..11)]):
%p Res:= NULL:
%p for kk from 3 to 50 do
%p km:= kk mod 12;
%p n0:= 1 + (kk-2)*(kk-3)/2;
%p js:= [$n0 ..(n0+kk-3)];
%p Res:= Res, op( select(t -> member([kk, t+2-n0] mod 12,R), js));
%p od:
%p Res; # _Robert Israel_, Jul 27 2020
%t (See the program at A205867.)
%Y Cf. A204890, A205867, A205840.
%K nonn
%O 1,1
%A _Clark Kimberling_, Feb 02 2012
|