1,1

Base-3 analog of A066059 (base 2), A075420 (base 4) and A023108 (base 10).

A.H.M. Smeets, Table of n, a(n) for n = 1..20000

limit = 10^3; (* Assumes that there is no palindrome if none is found before "limit" iterations *)

Select[Range[805],

Length@NestWhileList[# + IntegerReverse[#, 3] &, #, # !=

IntegerReverse[#, 3] &, 1, limit] == limit + 1 &] (* Robert Price, Oct 19 2019 *)

(ARIBAS) m := 900; stop := 1000; for n := 0 to m do c := 0; k := n; b := 1; while b do d := k; rev := 0; while d > 0 do rev := 3*rev + (d mod 3); d := d div 3; end; if k = rev or c = stop then b := 0; else k := k + rev; end; inc(c); end; if c > stop then write(n, ", "); end; end;

Cf. A023108, A066059, A075420, A077405.

Sequence in context: A055628 A139643 A139957 * A139979 A146357 A252269

Adjacent sequences: A077401 A077402 A077403 * A077405 A077406 A077407

base,nonn

Klaus Brockhaus, Nov 05 2002

Offset changed to 1 by A.H.M. Smeets, Feb 10 2019

approved