|
|
A244349
|
|
Positive integers n such that all the differences prime(n+j) - prime(n+i) with 0 <= i < j <= 9 are practical numbers.
|
|
1
|
|
|
232272, 254294, 326943, 686574, 1021708, 1251812, 1254205, 1347543, 1562959, 2236112, 2607137, 2682138, 2810880, 2884861, 3041717, 3049727, 3049728, 3159941, 3159942, 3314220
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Conjecture: For any integer m > 0, there are infinitely many positive integers n such that all the differences prime(n+j) - prime(n+i) with 0 <= i < j <= m are practical numbers.
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 232272 with prime(232272+i) (i=0..9) having values 3230477, 3230483, 3230489, 3230501, 3230519, 3230531, 3230537, 3230543, 3230567, 3230573 respectively. Note that the set {prime(232272+j) - prime(232272+i): 0 <= i < j <= 9} coincides with {6*k: k = 1, ..., 16} whose elements are all practical numbers.
|
|
MATHEMATICA
|
f[n_]:=FactorInteger[n]
Pow[n_, i_]:=Part[Part[f[n], i], 1]^(Part[Part[f[n], i], 2])
Con[n_]:=Sum[If[Part[Part[f[n], s+1], 1]<=DivisorSigma[1, Product[Pow[n, i], {i, 1, s}]]+1, 0, 1], {s, 1, Length[f[n]]-1}]
pr[n_]:=n>0&&(n<3||Mod[n, 2]+Con[n]==0)
m=0; Do[Do[If[pr[Prime[n+j]-Prime[n+i]]==False, Goto[aa]], {j, 1, 9}, {i, 0, j-1}]; m=m+1; Print[m, " ", n]; Label[aa]; Continue, {n, 1, 3314220}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|