A114914 Terms in A114913 that are not in A111174.

76, 101, 149, 198, 201, 251, 326, 351, 368, 394, 426, 451, 476, 489, 492, 514, 601, 626, 639, 683, 688, 701, 801, 835, 879, 884, 933, 973, 976, 1051, 1076, 1098, 1168, 1176, 1178, 1201, 1215, 1227, 1251, 1301, 1351, 1359, 1374, 1376, 1459, 1551, 1570

Offset: 1

Author

Christian G. Bower, Jan 06 2006

Keywords

• nonn

Comments

If 24*k+1 = 25*p for some prime p, then k will be in this sequence, implying that this sequence is infinite. - Dean Hickerson, Jan 19 2006

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A111174, A114913.

Programs

Mathematica

q[n_] := Module[{f = FactorInteger[n], f1, f2}, f1 = Select[f, MemberQ[{1, 5, 7, 11}, Mod[First[#], 24]] &]; f2 = Select[f, MemberQ[{13, 17, 19, 23}, Mod[First[#], 24]] &]; AllTrue[f2[[;;, 2]], EvenQ] && Count[f1[[;;, 2]], ?OddQ] == 1]; Select[Range[1600], CompositeQ[24 * # + 1] && q[24 * # + 1] &] (* _Amiram Eldar, Aug 24 2024 *)