A083822 a(n) = digit reversal of 3*n, divided by 3.

1, 2, 3, 7, 17, 27, 4, 14, 24, 1, 11, 21, 31, 8, 18, 28, 5, 15, 25, 2, 12, 22, 32, 9, 19, 29, 6, 16, 26, 3, 13, 23, 33, 67, 167, 267, 37, 137, 237, 7, 107, 207, 307, 77, 177, 277, 47, 147, 247, 17, 117, 217, 317, 87, 187, 287, 57, 157, 257, 27, 127, 227, 327, 97, 197, 297, 34

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003

Keywords

• base
• easy
• nonn

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.

Examples

			a(25) = reverse(3*25)/3 = reverse(75)/3 = 57/3 = 19.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A083823, A083824, A083825.

Programs

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 *)

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

Extensions

Edited, corrected and extended by Klaus Brockhaus, May 11 2003