%I A126915
%S A126915 2,6,12,60,68,138,270,446,488,620,656,798,872,942,950,1136,1140,1256,
%T A126915 1400,1418,1506,1638,1776,1922,1992,2070,2082,2096,2220,2346,2462,2580,
%U A126915 2606,2916
%N A126915 Numbers n such that 1 + n^2 + n^4 + n^6 + n^8 + n^10 + n^12 + n^14 +
n^16 + n^18 + n^20 + n^21 is prime.
%t A126915 a = {}; Do[If[PrimeQ[1 + n^2 + n^4 + n^6 + n^8 + n^10 + n^12 + n^14 +
n^16 + n^18 + n^20 + n^21], AppendTo[a, n]], {n, 1, 1400}]; a
%Y A126915 Cf. A049407, A124175 A124176 A124177, A124178, A124179, A124180, A124181,
A126908-A126916.
%Y A126915 Sequence in context: A109935 A065887 A072181 this_sequence A002201 A004490
A135060
%Y A126915 Adjacent sequences: A126912 A126913 A126914 this_sequence A126916 A126917
A126918
%K A126915 nonn
%O A126915 1,1
%A A126915 Artur Jasinki (grafix(AT)csl.pl), Dec 31 2006
|