|
|
A160936
|
|
a(n)= n * reversal(n-1) * reversal(n+1).
|
|
1
|
|
|
0, 6, 24, 60, 120, 210, 336, 504, 72, 990, 231, 4092, 11193, 22134, 37515, 57936, 83997, 116298, 3078, 21840, 924, 8448, 21252, 39936, 65100, 97344, 137268, 185472, 7134, 35880, 2139, 13728, 32637, 59466, 94815, 139284, 193473, 257982, 12948
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(8) = 8*R(7)*R(9) = 7*8*9 = 504;
a(15) = 15*R(14)*R(16) = 15*41*61 = 37515;
a(26) = 26*R(25)*R(27) = 26*52*72 = 97344.
|
|
MAPLE
|
rev := proc (n) local nn: nn := convert(n, base, 10); add(nn[j]*10^(nops(nn)-j), j = 1 .. nops(nn)) end proc: seq(n*rev(n-1)*rev(n+1), n = 1 .. 40); # Emeric Deutsch, Jun 24 2009
|
|
MATHEMATICA
|
Table[n*IntegerReverse[n-1]*IntegerReverse[n+1], {n, 40}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 16 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|