|
%I #12 May 20 2022 08:56:51
%S 1,3,4,5,6,10,9,14,15,22,20,21,26,28,33,30,35,44,39,42,55,52,51,66,65,
%T 68,70,57,78,85,110,102,95,130,114,170,138,182,220,190,174,238,260,
%U 230,255,266,340,290,276,285,322,380,310,418,345,476,406,460,370,510,506,435,532,434,580,483,570,638,465,644,518
%N Prime shadows of (nonzero) K-champion numbers.
%C Sequence is injective (no duplicate values occur) because A307866 (after its initial zero) is a subsequence of A025487.
%C The finite number of powerful (A001694) terms in A307866 implies a finite number of odd terms in this sequence.
%H Amiram Eldar, <a href="/A353568/b353568.txt">Table of n, a(n) for n = 1..883</a>
%F a(n) = A181819(A307866(1+n)).
%F a(n) = A122111(A330686(n)).
%o (PARI)
%o v307866 = readvec("b307866_to.txt";) \\ Prepared from the b-file of A307866 with gawk ' { print $2 } ' < b307866.txt > b307866_to.txt
%o A307866(n) = v307866[n];
%o A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
%o A353568(n) = A181819(A307866(1+n));
%Y Cf. A025487, A122111, A181819, A307866, A330686.
%Y Cf. also A353561, A353562.
%K nonn
%O 1,2
%A _Antti Karttunen_, Apr 29 2022
|
