login
A100110
Write n in decimal and replace each digit d with prime(d+1), add overflow to the next position left.
1
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 32, 33, 35, 37, 41, 43, 47, 49, 53, 59, 52, 53, 55, 57, 61, 63, 67, 69, 73, 79, 72, 73, 75, 77, 81, 83, 87, 89, 93, 99, 112, 113, 115, 117, 121, 123, 127, 129, 133, 139, 132, 133, 135, 137, 141, 143, 147, 149, 153, 159, 172, 173, 175
OFFSET
0,1
LINKS
EXAMPLE
a(5) = prime(6) = 13.
a(55) = 1(3+1)3 = 143.
MAPLE
a:= n-> (l-> add(ithprime(l[i]+1)*10^(i-1),
i=1..nops(l)))(convert(n, base, 10)):
seq(a(n), n=0..80); # Alois P. Heinz, Aug 27 2015
MATHEMATICA
Table[FromDigits[Prime[(IntegerDigits[n] + 1)]], {n, 0, 70}] (* Stefan Steinerberger, Mar 27 2006 *)
CROSSREFS
Sequence in context: A100724 A257658 A182231 * A095323 A100370 A233393
KEYWORD
nonn,base,easy
AUTHOR
Jorge Coveiro, Dec 26 2004
EXTENSIONS
More terms from Stefan Steinerberger, Mar 27 2006
STATUS
approved