|
| |
|
|
A100110
|
|
Write n in decimal and replace each digit d by prime(d+1).
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| E.g. 11 -> prime(2)prime(2) = 33.
|
|
|
MATHEMATICA
| Table[FromDigits[Prime[(IntegerDigits[n] + 1)]], {n, 0, 70}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 27 2006
|
|
|
CROSSREFS
| Sequence in context: A178762 A051750 A100724 * A095323 A100370 A095319
Adjacent sequences: A100107 A100108 A100109 * A100111 A100112 A100113
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| Jorge Coveiro (jorgecoveiro(AT)yahoo.com), Dec 26 2004
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 27 2006
|
| |
|
|
