Search: id:A132426
Results 1-1 of 1 results found.

%I A132426
%S A132426 1,2,4,6,7,3,8,10,9,12,14,11,16,13,15,18,5,20,21,22,24,26,28,30,32,34,
%T A132426 35,42,49,36,38,37,17,19,25,23,31,27,33,39,45,40,29,44,52,48,51,46,50,
%U A132426 54,56,58,57,60,63,62,64,41,43,66,65,78,55,68,70,69,72,75,74,76,77,88
%N A132426 a(n) = A132425(n+1) - A132425(n).
%C A132426 Is this sequence a permutation of the positive integers?
%H A132426 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%t A132426 a = {1, 2}; For[n = 1, n < 1000, n++, n = a[[ -1]]; c = 0; While[c == 
               0, n++; If[GCD[n, a[[ -1]]] > 1, b = 0; For[j = 1, j < Length[a], 
               j++, If[a[[j + 1]] - a[[j]] == n - a[[ -1]], b = 1]]; If[b == 0, 
               AppendTo[a, n]; c = 1]]]]; b = {}; For[k = 1, k < Length[a], k++, 
               AppendTo[b, a[[k + 1]] - a[[k]]]]; b - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Oct 21 2007
%Y A132426 Cf. A132425.
%Y A132426 Sequence in context: A123258 A104968 A142473 this_sequence A072646 A162672 
               A091476
%Y A132426 Adjacent sequences: A132423 A132424 A132425 this_sequence A132427 A132428 
               A132429
%K A132426 nonn
%O A132426 1,2
%A A132426 Leroy Quet Aug 20 2007
%E A132426 More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Oct 21 2007

Search completed in 0.001 seconds