A145735 Indices of palindromes in A033649.
1, 3, 4, 5, 6, 12, 13, 19, 29, 36
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a001127 n = a001127_list !! n a001127_list = iterate a056964 1 -- Reinhard Zumkeller, Sep 22 2011
a:= proc(n) option remember; `if`(n=0, 1, (h-> h+ (s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
end:
seq(a(n), n=0..40); # Alois P. Heinz, Jun 18 2014
NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 1, 30] (* Robert G. Wilson v, Dec 16 2005 *) NestList[#+IntegerReverse[#]&,1,30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 19 2019 *)
a033648 n = a033648_list !! n a033648_list = iterate a056964 3 -- Reinhard Zumkeller, Sep 22 2011
a:= proc(n) option remember; `if`(n=0, 3, (h-> h+ (s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
end:
seq(a(n), n=0..40); # Alois P. Heinz, Jun 18 2014
NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 3, 29] (* Robert G. Wilson v, Dec 16 2005 *)
T(5,6) = 88, since 88 is the 6th term in the reverse and add sequence of 5. Table starts with: 1 2 4 8 16 77 154 605 1111 2222 2 4 8 16 77 154 605 1111 2222 4444 3 6 12 33 66 132 363 726 1353 4884 4 8 16 77 154 605 1111 2222 4444 8888 5 10 11 22 44 88 176 847 1595 7546 6 12 33 66 132 363 726 1353 4884 9768 7 14 55 110 121 242 484 968 1837 9218 8 16 77 154 605 1111 2222 4444 8888 17776 9 18 99 198 1089 10890 20691 40293 79497 158994 10 11 22 44 88 176 847 1595 7546 14003
T:= proc(n, r) option remember; `if`(r=1, n, (h-> h +(s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(T(n, r-1)))
end:
seq(seq(T(n, 1+d-n), n=1..d), d=1..12); # Alois P. Heinz, Jun 18 2014
rad[n_] := n + FromDigits[Reverse[IntegerDigits[n]]];
T[n_, 1] := n; T[n_, k_] := T[n, k] = rad[T[n, k-1]];
Table[T[n-k+1, k], {n, 1, 12}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Apr 08 2016 *)
a033650 n = a033650_list !! n a033650_list = iterate a056964 7 -- Reinhard Zumkeller, Sep 22 2011
a:= proc(n) option remember; `if`(n=0, 7, (h-> h+ (s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
end:
seq(a(n), n=0..40); # Alois P. Heinz, Jun 18 2014
NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 7, 26] (* Robert G. Wilson v *)
a063051 n = a063051_list !! n a063051_list = iterate a056964 879 -- Reinhard Zumkeller, Sep 22 2011
a:= proc(n) option remember; `if`(n=0, 9, (h-> h+ (s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
end:
seq(a(n), n=0..40); # Alois P. Heinz, Jun 18 2014
NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 9, 26] (* Robert G. Wilson v *)
Comments