OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
FORMULA
Every term of the sequence is divisible by 11.
MATHEMATICA
Table[ ToExpression[ StringJoin[ ToString[Prime[n]], StringReverse[ ToString[ Prime[n]]]]], {n, 1, 40} ]
#*10^IntegerLength[#]+IntegerReverse[#]&/@Prime[Range[50]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 11 2017 *)
PROG
(PARI) digitsIn(x)= { local(d); if (x==0, return(1)); d=1 + log(x)\log(10); if (10^d == x, d++, if (10^(d-1) > x, d--)); return(d) } Concat(a, b)= { return(a*10^digitsIn(b) + b) } Rev(x)= { local(d, r=0); while (x>0, d=x%10; x\=10; r=r*10 + d); return(r) } { for (n=1, 1000, p=prime(n); write("b067087.txt", n, " ", Concat(p, Rev(p))) ) } \\ Harry J. Smith, May 13 2010
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Amarnath Murthy, Jan 07 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 09 2002
STATUS
approved