|
|
A102070
|
|
Numbers that can be expressed as p+p^n (p prime, n >= 0) in more than one way.
|
|
1
|
|
|
4, 6, 10, 12, 14, 18, 30, 34, 38, 62, 74, 84, 130, 132, 158, 182, 194, 258, 278, 314, 350, 380, 398, 422, 458, 514, 542, 614, 662, 674, 734, 758, 878, 992, 998, 1094, 1154, 1202, 1214, 1238, 1322, 1382, 1454, 1622, 1658, 1722, 1754, 1874, 1934, 1994, 2018, 2138
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
14 = 7+7^1 = 13+13^0. 130 = 2+2^7 = 5+5^3.
|
|
PROG
|
(PARI) v = vector(20000); count = 0; i = 1; p = 2; while (p < 5000, pow = 1; while (pow < 5000, n = p + pow; count++; v[count] = n; pow *= p); i++; p = prime(i)); w = vector(count, x, v[x]); v = vecsort(w); i = 3; for (j = 2, count, if (v[j] == v[j - 1] && v[j] != v[j - 2], print(v[j])));
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|