%I #7 Jul 04 2022 11:23:19
%S 1,2,3,4,5,6,7,8,9,29,32,39,44,47,52,59,66,69,76,142,147,160,169,182,
%T 199,208,213,222,227,339,382,395,414,421,452,459,478,497,510,692,717,
%U 726,767,776,793,802,851,900,917,1145,1166,1197,1208,1259,1290,1321,1352,1363,1394
%N a(n) = n_prime(n).
%C See A122618 for notation.
%p rebase := proc(n,b)
%p local dgs;
%p dgs := convert(n,base,10) ;
%p add(op(i,dgs)*b^(i-1),i=1..nops(dgs)) ;
%p end proc:
%p A122621 := proc(n)
%p rebase(n,ithprime(n)) ;
%p end proc: # _R. J. Mathar_, May 06 2019
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_, Sep 21 2006
|