A081938 a(1) = 1, a(n) = smallest palindromic number > a(n-1) of the form k*a(n-1) - 1.
1, 2, 3, 5, 9, 44, 131, 602206, 39293339293, 98576836066063867589
Offset: 1
Crossrefs
Cf. A081939.
Programs
-
Mathematica
nxt[n_]:=Module[{k=2},While[!PalindromeQ[k*n-1],k++];k*n-1]; Join[{1}, NestList[ nxt,2,8]] (* Harvey P. Dale, Oct 05 2018 *)
Extensions
a(8) and a(9) from R. J. Mathar, Jul 15 2007
a(10) from Donovan Johnson, Mar 26 2011