A300004 First differences of the list A292794 of numbers not congruent to F(k) modulo F(k+1) for any k > 1, where F are the Fibonacci numbers A000045.
4, 2, 4, 2, 4, 6, 2, 6, 6, 4, 2, 4, 6, 2, 10, 2, 4, 2, 10, 2, 6, 4, 2, 4, 2, 4, 8, 6, 4, 2, 4, 2, 4, 6, 8, 4, 2, 6, 4, 6, 2, 6, 4, 2, 6, 4, 8, 6, 4, 6, 2, 4, 6, 2, 6, 6, 4, 2, 4, 6, 2, 6, 4, 2, 4, 2, 10, 8, 4, 2, 4, 2, 4, 8, 6, 4, 2, 4, 2, 10, 2, 6, 6, 10, 6, 2, 6, 4, 2, 4, 2, 4, 8, 6, 6, 4, 2, 4, 6, 2, 12, 4, 2, 4
Offset: 0
Keywords
Programs
-
Mathematica
Differences@ Join[{0}, Select[Range[3, 500], Function[n, NoneTrue[Block[{k = {1, 1}}, While[Last@k <= n, AppendTo[k, Total@ Take[k, -2]]]; Partition[Most@ k, 2, 1]], Mod[n, #2] == #1 & @@ # &]]]] (* Michael De Vlieger, Mar 19 2018 *)
-
PARI
(D(v)=v[^1]-v[^-1])(A292794=select(is_A292794,[0..500]))
-
PARI
print1(L=0); for(n=1,oo, is_A292794(n)&&print1(",",-L+L=n))
Extensions
Edited by M. F. Hasler, Mar 05 2018
Comments