OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
L:= [1, seq(ithprime(i), i=1..99)]:
seq(L[2*k-1]*10^(1+ilog10(L[2*k]))+L[2*k], k=1..50); # Robert Israel, Jun 28 2018
MATHEMATICA
#[[1]]*10^IntegerLength[#[[2]]]+#[[2]]&/@Partition[Join[{1}, Prime[ Range[ 51]]], 2] (* Harvey P. Dale, Jul 12 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
bmoore(AT)artemis.ess.ucla.edu (William B. Moore)
STATUS
approved