الأعداد الأولية ذات القرابة

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

الأعداد الأولية ذات القرابة تظهر من خلال ثنائيات عددية
مكونة من أعداد أولية الرابط العلائقي بينها هو نفس الفارق
لو لاحظت الثنائيات التالية :
" 3 , 5 "
"5, 7 "
" 11 , 13 "
" 17 , 19 " .... الخ
تجد كلها مكونة من أعداد أولية و تشترك في نفس الفارق 2
وبالتالي هي ذات قرابة

كيف نحقق الحصول عليها برمجيا ؟
مثلا لغاية 1000

كود :
tamer=""
BELKISS={}
p=3 for i=5,1000 do
t={1}for j=2,i/3 do t[Math.Mod(i,j)+1]=m end
if t[1]then
p=i,i-p>2 or Table.Insert( BELKISS,1,"["..i..","..p.."]".." ");
--
end
---------------------------
end
for ee,rr in pairs (BELKISS) do
tamer=tamer..rr
end
Dialog.Message("Notice",tamer);


موفق :abc_138: