A246397 Numbers n such that Phi(12, n) is prime, where Phi is the cyclotomic polynomial.

2, 3, 4, 5, 9, 10, 12, 13, 17, 25, 27, 30, 31, 36, 38, 39, 43, 48, 52, 55, 56, 61, 62, 65, 83, 92, 94, 99, 100, 104, 105, 109, 114, 118, 126, 131, 166, 168, 169, 172, 183, 185, 190, 194, 196, 198, 209, 224, 225, 229, 231, 239, 244, 257, 260, 261, 263, 269, 270, 272, 278, 291, 296, 299, 300, 302, 308, 311

Offset

1,1

Comments

Numbers n such that n^4-n^2+1 is prime, or numbers n such that A060886(n) is prime.

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Maple

A246397:=n->`if`(isprime(n^4-n^2+1), n, NULL): seq(A246397(n), n=1..300); # Wesley Ivan Hurt, Nov 14 2014

Mathematica

Select[Range[350], PrimeQ[Cyclotomic[12, #]] &] (* Vincenzo Librandi, Jan 17 2015 *)

Prog

(PARI) for(n=1, 10^3, if(isprime(polcyclo(12, n)), print1(n, ", "))); \\ Joerg Arndt, Nov 13 2014

Crossrefs

Cf. A008864 (1), A006093 (2), A002384 (3), A005574 (4), A049409 (5), A055494 (6), A100330 (7), A000068 (8), A153439 (9), A246392 (10), A162862 (11), this sequence (12), A217070 (13), A006314 (16), A217071 (17), A164989 (18), A217072 (19), A217073 (23), A153440 (27), A217074 (29), A217075 (31), A006313 (32), A097475 (36), A217076 (37), A217077 (41), A217078 (43), A217079 (47), A217080 (53), A217081 (59), A217082 (61), A006315 (64), A217083 (67), A217084 (71), A217085 (73), A217086 (79), A153441 (81), A217087 (83), A217088 (89), A217089 (97), A006316 (128), A153442 (243), A056994 (256), A056995 (512), A057465 (1024), A057002 (2048), A088361 (4096), A088362 (8192), A226528 (16384), A226529 (32768), A226530 (65536).

Cf. A060886, A125258, A085398, A124990.

Sequence in context: A194410 A361125 A081869 * A015837 A262511 A075177

Adjacent sequences: A246394 A246395 A246396 * A246398 A246399 A246400

Keyword

nonn

Author

Eric Chen, Nov 13 2014

Status

approved