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,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

Cf. A083823, A083824, A083825.

Sequence in context: A110480 A338175 A268539 * A349665 A030086 A078721

Adjacent sequences: A083819 A083820 A083821 * A083823 A083824 A083825

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