OFFSET
1,2
COMMENTS
If n is a multiple of 10, then a(n) = a(n/10); if n is not a multiple of 10, then a(a(n)) = n.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(25) = reverse(3*25)/3 = reverse(75)/3 = 57/3 = 19.
MATHEMATICA
Table[FromDigits[Reverse[IntegerDigits[3n]]]/3, {n, 70}] (* Harvey P. Dale, May 19 2015 *)
IntegerReverse[3*Range[70]]/3 (* Harvey P. Dale, Apr 12 2022 *)
PROG
(PARI) {for(n=1, 70, k=3*n; rev=0; while(k>0, d=divrem(k, 10); k=d[1]; rev=10*rev+d[2]); print1(rev/3, ", "))}
(PARI) apply( A083822(n)=fromdigits(Vecrev(digits(3*n)))/3, [0..99]) \\ M. F. Hasler, May 21 2021
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003
EXTENSIONS
Edited, corrected and extended by Klaus Brockhaus, May 11 2003
STATUS
approved