|
| |
|
|
A136050
|
|
Sum of digits of product of twin primes A037074.
|
|
1
| |
|
|
8, 8, 8, 26, 17, 26, 17, 8, 17, 17, 26, 26, 26, 17, 26, 35, 35, 26, 26, 8, 35, 26, 17, 26, 35, 44, 26, 17, 35, 35, 35, 35, 26, 35, 26, 17, 26, 26, 26, 17, 35, 26, 35, 26, 35, 26, 17, 26, 17, 35, 35, 26, 26, 35, 35, 26, 35, 26, 35, 26, 26, 26, 35, 26, 44, 35, 26, 26, 35, 44, 35
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| a = {}; Do[If[PrimeQ[6n - 1] && PrimeQ[6n + 1], c = IntegerDigits[36n^2 - 1]; b = Sum[c[[s]], {s, 1, Length[c]}]; AppendTo[a, b]], {n, 1, 20000}]; a
|
|
|
CROSSREFS
| Cf. A002822, A037074, A136017.
Sequence in context: A203127 A023415 A134314 * A077106 A195717 A193781
Adjacent sequences: A136047 A136048 A136049 * A136051 A136052 A136053
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Dec 12 2007
|
| |
|
|
