|
|
|
|
21, 10, 48, 10, 102, 100, 156, 172, 200, 200, 100, 100, 200, 388, 300, 300, 300, 400, 100, 200, 100, 100, 200, 300, 100, 912, 928, 5000, 982, 2000, 1150, 1188, 1236, 1260, 1344, 1000, 1414, 1000, 3000, 1560, 2000, 1000, 1722, 1000, 1776, 1794, 1900, 1000, 2046, 1000, 2100, 2000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
p = 1; s = {}; m = 100; Do[p = NextPrime[p]; idp = IntegerDigits[p]; le = Length[idp]; q = p; Label[1]; q = NextPrime[q]; par = Partition[IntegerDigits[q], le, 1]; If[MemberQ[par, idp], AppendTo[s, q - p]; Goto[2], Goto[1]]; Label[2], {m}]; s(*for first m terms*)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|