|
%I #15 Oct 15 2021 14:27:41
%S 2,3,5,7,12,16,24,28,49,67,94,118,165,175,195,268,304,367,409,498,514,
%T 562,667,721,880,10202,10612,11456,11890,12885,16390,17555,19187,
%U 19747,22806,23557,25441,27550,28898,31143,33303,34210,38201,38989,40589,41401,89254
%N a(n) = prime(n)_prime(n).
%C See A122618 for notation.
%H Alois P. Heinz, <a href="/A122622/b122622.txt">Table of n, a(n) for n = 1..10000</a>
%p a:= n-> (b-> (l-> add(l[i]*b^(i-1), i=1..nops(l)))(
%p convert(b, base, 10)))(ithprime(n)):
%p seq(a(n), n=1..50); # _Alois P. Heinz_, Aug 31 2021
%t FromDigits[IntegerDigits[#],#]&/@Prime[Range[50]] (* _Harvey P. Dale_, Aug 31 2021 *)
%Y Cf. A000040, A122618.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Sep 21 2006
|
