|
%I #14 Oct 06 2023 14:14:34
%S 1,2,4,2,4,2,6,8,16,2,6,12,6,8,4,12,24,2,6,12,6,12,6,30,24,32,4,12,36,
%T 12,16,8,16,2,6,12,6,12,6,30,24,48,6,30,60,30,24,12,60,48,4,12,36,12,
%U 36,12,60,72,64,8,24,72,24,32,64,2,6,12,6,12,6,30,24,48,6,30,60,30,24,12,60,120,6,30,60,30,60
%N The least number with the same prime signature as A366260, where A366260 is Doudna sequence permuted by May code.
%H Antti Karttunen, <a href="/A366261/b366261.txt">Table of n, a(n) for n = 0..16384</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = A046523(A366260(n)).
%F a(n) = A278222(A303767(n)).
%F A001222(a(n)) = A366254(n).
%o (PARI)
%o A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f,
%o A366261(n) = A046523(A366260(n)); \\ Needs also the program given in A366260.
%Y Cf. A005940, A046523, A303767, A366260, A366262 (rgs-transform).
%Y Cf. also A278219, A278222.
%K nonn
%O 0,2
%A _Antti Karttunen_, Oct 05 2023
|
