|
Search: id:A144850
|
|
|
| A144850 |
|
a(n) = number of distinct prime divisors (taken together) of numbers of the form x^2+x+1 for x<=10^n |
|
+0
4
|
|
| 8, 74, 734, 7233, 71653, 712026, 7090655, 70686855, 705173824, 7038475146, 70278276833
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
B. Helmes, quadratisches Siebverfahren/Primzahlgenerator
|
|
MATHEMATICA
|
d = 10; l = 0; p = 1; c = {}; a = {}; Do[k = p x^2 + x + 1; b = Divisors[k]; Do[If[PrimeQ[b[[n]]], AppendTo[a, b[[n]]]], {n, 1, Length[b]}]; If[x == d, a = Union[a]; l = Length[a]; d = 10 d; Print[l]; AppendTo[c, l]], {x, 1, 10000}]; c (*Artur Jasinski*)
|
|
CROSSREFS
|
A002383, A143835, A143868, A144848, A144849, A144850, A144851
Sequence in context: A024104 A152429 A137140 this_sequence A116251 A166084 A123661
Adjacent sequences: A144847 A144848 A144849 this_sequence A144851 A144852 A144853
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Artur Jasinski & Bernhard Helmes (bhelmes(AT)gmx.de) (grafix(AT)csl.pl), Sep 22 2008
|
|
|
Search completed in 0.002 seconds
|
