OFFSET
0,1
COMMENTS
The map which is applied to primes in A171019.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[FromDigits[IntegerDigits[n]/.{0->z, 4->f}/.{z->4, f->0}], {n, 0, 80}] (* Harvey P. Dale, Feb 25 2013 *)
PROG
(PARI) A222213(n, d=[4, 1, 2, 3, 0, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i), !n*d[1]) \\ N.B.: PARI's digits() function returns [] for 0.
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Feb 12 2013
STATUS
approved