|
%I #5 Jun 18 2012 12:42:56
%S 2,2,5,2,11,5,17,2,23,11,31,5,41,17,47,2,59,23,67,11,73,31,83,5,97,41,
%T 103,17,109,47,127,2,137,59,149,23,157,67,167,11,179,73,191,31,197,83,
%U 211,5,227,97,233,41,241,103,257,17,269,109,277,47,283,127
%N Primes with subscript that equals odd part of n.
%C If you take every second term of a(n) you get A031368.
%F a(n) = Prime(OddPart(n)) = A000040(A000265(n)).
%e a(8) = Prime(OddPart(8)) = Prime(1) = 2.
%e a(9) = Prime(OddPart(9)) = Prime(9) = 23.
%e a(10) = Prime(OddPart(10)) = Prime(5) = 11.
%t Table[Prime[n/2^IntegerExponent[n, 2]], {n, 100}] (* _T. D. Noe_, Jun 18 2012 *)
%Y Cf. A031368, A000265, A000040.
%K nonn
%O 1,1
%A _Jens Ahlström_, Jun 17 2012
|
