A114914 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

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

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 *)

CROSSREFS

Cf. A111174, A114913.

Sequence in context: A095545 A137147 A341178 * A026046 A330191 A376291

Adjacent sequences: A114911 A114912 A114913 * A114915 A114916 A114917

KEYWORD

nonn

AUTHOR

Christian G. Bower, Jan 06 2006

STATUS

approved