Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A138957
Concatenation of the reversed digits of numbers from 1 to n.
7
1, 12, 123, 1234, 12345, 123456, 1234567, 12345678, 123456789, 12345678901, 1234567890111, 123456789011121, 12345678901112131, 1234567890111213141, 123456789011121314151, 12345678901112131415161
OFFSET
1,2
COMMENTS
There are no primes in this sequence for n<=7000
MATHEMATICA
b = {}; a = {}; Do[w = RealDigits[n]; w = First[w]; Do[AppendTo[a, w[[Length[w] - k + 1]]], {k, 1, Length[w]}]; p = FromDigits[a]; AppendTo[b, p], {n, 1, 21}]; b
(* or *)
Table[FromDigits[Flatten[Reverse/@IntegerDigits[Range[n]]]], {n, 20}] (* Harvey P. Dale, Oct 22 2013 *)
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Apr 04 2008, Apr 05 2008
STATUS
approved