%I #14 May 25 2017 03:16:59
%S 0,2,4,6,8,22,12,10,16,18,20,58,24,26,76,66,64,70,36,14,40,30,28,34,
%T 48,46,52,54,56,166,60,62,184,174,172,178,72,74,220,78,80,238,228,226,
%U 232,198,68,202,192,190,196,210,208,214,108,38,112,42,44,130,120,118,124,90,32,94,84,82,88,102,100,106,144
%N Permutation of even numbers: a(n) = 2 * A265351(n).
%C Iterating this sequence as 1, a(1), a(a(1)), a(a(a(1))), ... yields A264980.
%H Antti Karttunen, <a href="/A265342/b265342.txt">Table of n, a(n) for n = 0..9841</a>
%F a(n) = 2 * A265351(n).
%o (Scheme) (define (A265342 n) (* 2 (A265351 n)))
%o (Python)
%o from sympy import factorint
%o from sympy.ntheory.factor_ import digits
%o from operator import mul
%o def a030102(n): return 0 if n==0 else int(''.join(map(str, digits(n, 3)[1:][::-1])), 3)
%o def a038502(n):
%o f=factorint(n)
%o return 1 if n==1 else reduce(mul, [1 if i==3 else i**f[i] for i in f])
%o def a038500(n): return n/a038502(n)
%o def a263273(n): return 0 if n==0 else a030102(a038502(n))*a038500(n)
%o def a263272(n): return a263273(2*n)/2
%o def a(n): return 2*a263272(a263273(n)) # _Indranil Ghosh_, May 25 2017
%Y Cf. A265351.
%Y Cf. also A265341, A263273, A264980.
%K nonn
%O 0,2
%A _Antti Karttunen_, Dec 07 2015