login
A222254
In the number n, replace all (decimal) digits '8' with '9' and vice versa.
45
0, 1, 2, 3, 4, 5, 6, 7, 9, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 18, 20, 21, 22, 23, 24, 25, 26, 27, 29, 28, 30, 31, 32, 33, 34, 35, 36, 37, 39, 38, 40, 41, 42, 43, 44, 45, 46, 47, 49, 48, 50, 51, 52, 53, 54, 55, 56, 57, 59, 58, 60, 61, 62, 63, 64, 65, 66, 67, 69, 68, 70, 71, 72, 73, 74, 75
OFFSET
0,3
COMMENTS
The map which is applied to primes in A171057.
LINKS
MATHEMATICA
a[n_]:= IntegerDigits[n]/.{8->9, 9->8}//FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 29 2013 *)
PROG
(PARI) A222254(n, d=[0, 1, 2, 3, 4, 5, 6, 7, 9, 8])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i), !n*d[1]) \\ N.B.: digits(0)=[] in PARI (v.2.6)
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Feb 13 2013
STATUS
approved