|
|
A303094
|
|
Balanced primes of order one ending in 7.
|
|
3
|
|
|
157, 257, 607, 947, 977, 1187, 1367, 1747, 1907, 2287, 2417, 2677, 3307, 3637, 4457, 4597, 4657, 5107, 5387, 5807, 6317, 6367, 6977, 8117, 8747, 9397, 10607, 10657, 11497, 11807, 12497, 12547, 12647, 13177, 13457, 14747, 15467, 15767, 15797, 15907, 16097
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
157 = (151 + 157 + 163)/3 = 471/3 and 157 = 15*10 + 7.
|
|
MAPLE
|
p:=ithprime: a:=n->`if`(add(p(n-k), k=-1..1)=3*p(n) and modp(p(n), 10) = 7, p(n), NULL): seq(a(n), n=3..2000);
|
|
PROG
|
(GAP) P:=Filtered([1..16200], IsPrime);;
a:=Filtered(List(Filtered(List([0..Length(P)-3], k->List([1..3], j->P[j+k])), i->Sum(i)/3=i[2]), m->m[2]), l-> l mod 10=7);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|