|
|
A168006
|
|
Primes n with property that first digit of 2*n = last digit of n.
|
|
1
|
|
|
37, 61, 71, 163, 173, 193, 367, 397, 479, 499, 521, 541, 571, 601, 631, 641, 661, 691, 701, 751, 761, 811, 821, 881, 911, 941, 971, 991, 1523, 1543, 1553, 1583, 1613, 1663, 1693, 1723, 1733, 1753, 1783, 1823, 1873, 1913, 1933, 1973, 1993, 3517, 3527, 3547
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
2*37=74, 2*61=122.
|
|
MATHEMATICA
|
Select[Prime[Range[800]], First[IntegerDigits[2#]]==Last[ IntegerDigits[#]]&] (* Harvey P. Dale, May 27 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|