%I #7 Apr 14 2023 15:47:22
%S 3,4,8,11,19,23,32,35,42,54,57,71,79,82,89,102,113,117,131,138,143,
%T 153,162,174,191,198,201,209,213,222,247,259,271,274,294,297,309,322,
%U 329,341,353,357,375,383,390,393,417,439,449,453,461,471,477,495,512
%N a(n) = A005187(A000040(n)).
%e A000040(6)=13 -> [13/2]=6 -> [6/2]=3 -> [3/2]=1
%e .......... 13 -> 13+6=19 -> 19+3=22 -> 22+1=23=a(6).
%p A084421 := proc(n)
%p A005187(ithprime(n)) ;
%p end proc:
%p seq(A084421(n),n=1..55) ; # _R. J. Mathar_, Jul 09 2016
%Y Cf. A000040, A005187, A035100.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 26 2003