|
|
A019552
|
|
a(n) is the concatenation of n and 4n.
|
|
9
|
|
|
14, 28, 312, 416, 520, 624, 728, 832, 936, 1040, 1144, 1248, 1352, 1456, 1560, 1664, 1768, 1872, 1976, 2080, 2184, 2288, 2392, 2496, 25100, 26104, 27108, 28112, 29116, 30120, 31124, 32128, 33132, 34136, 35140, 36144, 37148, 38152, 39156, 40160, 41164
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
a:=n->n*10^floor(log10(4*n)+1)+4*n: seq(a(n), n=1..50); # Muniru A Asiru, Jun 23 2018
|
|
MATHEMATICA
|
Table[FromDigits[Join[IntegerDigits[n], IntegerDigits[4n]]], {n, 50}] (* Harvey P. Dale, May 11 2011 *)
nxt[n_]:=Module[{idn=IntegerDigits[n], idn4=IntegerDigits[4n]}, FromDigits[Join[idn, idn4]]]; Array[nxt, 100] (* Vincenzo Librandi, Feb 04 2014 *)
|
|
PROG
|
(Magma) [Seqint(Intseq(4*n) cat Intseq(n)): n in [1..50]]; // Vincenzo Librandi, Feb 04 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less,easy
|
|
AUTHOR
|
R. Muller
|
|
STATUS
|
approved
|
|
|
|