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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Apr 04 2008, Apr 05 2008
STATUS
approved