A145701 Lesser p of twin primes (p,q) such that there exists an integer between sqrt(2p) and sqrt(2q).
3, 11, 17, 59, 71, 179, 311, 419, 881, 1151, 2111, 2591, 3119, 3527, 4049, 5099, 15137, 20807, 21011, 21839, 24419, 30011, 34847, 37811, 41759, 44699, 46817, 60899, 68819, 69191, 83231, 83639, 86111, 100799, 103967, 112337, 135719, 143111
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..500
Programs
-
Mathematica
okQ[n_]:=Last[n]-First[n]==2&&Floor[Sqrt[2Last[n]]]>Sqrt[2First[n]]; Transpose[Select[Partition[Prime[Range[13300]],2,1],okQ]][[1]] (* Harvey P. Dale, Oct 26 2011 *)
Extensions
Extended by R. J. Mathar, Aug 02 2010
Comments