|
%I #16 Nov 22 2023 18:17:31
%S 0,2,3,1,11,5,7,13,6,4,10,19,9,27,21,15,29,14,8,18,35,17,43,37,23,45,
%T 22,12,26,51,25,59,53,31,61,30,16,34,67,33,75,69,39,77,38,20,42,83,41,
%U 91,85,47,93,46,24,50,99,49,107,101,55,109,54,28,58,115,57,123,117,63,125
%N Square of permutation in A074305.
%C A permutation of the nonnegative integers.
%H G. Venturini, <a href="https://doi.org/10.1002/sapm1992863185">Iterates of number-theoretic functions with periodic rational coefficients (Generalization of the 3x+1 problem)</a>, Stud. Appl. Math., 86 (1992), 185-218.
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%H <a href="/index/Rec#order_18">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,-1).
%F a(9*n)=4*n, a(9*n+1)=8*n+2, a(9*n+2)=16*n+3, a(9*n+3)=8*n+1, a(9*n+4)=16*n+11, a(9*n+5)=16*n+5, a(9*n+6)=8*n+7, a(9*n+7)=16*n+13, a(9*n+8)=8*n+6. - _Philippe Deléham_ , Nov 14 2023
%o (PARI) A074305(m) = if(m%3==0,m/3*2,if(m%3==1,(m-1)/3*4+3,(m-2)/3*4+1))
%o for(i=0,120,print1(A074305(A074305(i)),", ")) \\ C. Ronaldo
%Y Cf. A074305, A074306, A074308.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_, Sep 23 2002
%E More terms from Lambert Klasen (lambert.klasen(AT)gmx.de), Jan 02 2005
|
