|
|
A069502
|
|
a(1) = 1; a(n) = smallest multiple of a(n-1) which is a palindromic triangular number.
|
|
1
|
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
smpt[n_]:=Module[{k=2}, While[!PalindromeQ[k*n]||!OddQ[Sqrt[1+8*k*n]], k++]; k*n]; NestList[smpt, 1, 5] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 01 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,hard
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|