|
|
A258080
|
|
a(n) = ((n concatenated with n+1) + (n+1 concatenated with n)) mod n*(n+1).
|
|
1
|
|
|
1, 1, 5, 19, 1, 17, 53, 43, 29, 31, 79, 29, 179, 199, 11, 69, 169, 317, 139, 361, 185, 497, 331, 149, 601, 439, 263, 73, 739, 581, 411, 229, 35, 1019, 871, 713, 545, 367, 179, 1621, 1495, 1361, 1219, 1069, 911, 745, 571, 389, 199, 1, 2447, 2337, 2221, 2099
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
Map[Mod[FromDigits[Flatten[{#1, #2}]]+FromDigits[Flatten[{#2, #1}]]&[IntegerDigits[#+1], IntegerDigits[#]], # (#+1)]&, Range[100]] (*Peter J. C. Moses, May 19 2015*)
|
|
PROG
|
(PARI) a(n) = (eval(concat(Str(n), Str(n+1))) + eval(concat(Str(n+1), Str(n)))) % (n*(n+1)); \\ Michel Marcus, Jun 04 2015
|
|
CROSSREFS
|
Cf. A001704 (concatenation {n,n+1}).
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|