%I #7 Jul 27 2023 08:17:38
%S 1,2,3,4,6,8,9,12,16,18,24,32,36,48,64,72,96,105,128,144,192,210,256,
%T 288,384,420,429,512,576,768,840,858,1024,1152,1365,1536,1617,1680,
%U 1716,2048,2304,2730,3072,3234,3360,3432,3887,4096,4235,4608,5460,6144,6468,6720,6864,7774,8192,8470,9216,10829,10920,12288
%N Numbers k such that k divides A163511(k).
%C If n is present, then 2*n is also present, and vice versa.
%C A007283 is included as a subsequence, because it gives the known fixed points of map n -> A163511(n).
%o (PARI)
%o A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
%o A054429(n) = ((3<<#binary(n\2))-n-1);
%o A163511(n) = if(!n,1,A005940(1+A054429(n)))
%o isA364494(n) = !(A163511(n)%n);
%Y Positions of 1's in A364491.
%Y Cf. A163511.
%Y Subsequences: A007283, A029744, A364495 (odd terms).
%Y Cf. also A364295, A364496, A364497.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jul 27 2023