|
Search: id:A132992
|
|
|
| A132992 |
|
Averages of Twin Primes if : Sum of Lower, Average and Upper part of Twin Primes are Average of the other Twin Primes, and remains true through 3 iterations. |
|
+0
1
|
|
| 32970, 180180, 273000, 633570, 879690, 991620, 1189650, 2219490, 3229380, 4111170, 4515630, 7384440, 7392630, 7398930, 7431270, 9022440, 9861390
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
32970 -> 98910 -> 296730 Twin Prime Averages
|
|
MATHEMATICA
|
TwinPrimeAverageQ[n_]:=If[PrimeQ[n-1]&&PrimeQ[n+1], True, False](*TwinPrimeAverageQ*)lst={}; Do[If[TwinPrimeAverageQ[n], If[TwinPrimeAverageQ[3*n], If[TwinPrimeAverageQ[9*n], (*Print[n]; *)AppendTo[lst, n]]]], {n, 7!, 3*10!}]; lst
|
|
CROSSREFS
|
Sequence in context: A036093 A083603 A045061 this_sequence A118278 A118280 A062682
Adjacent sequences: A132989 A132990 A132991 this_sequence A132993 A132994 A132995
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 26 2008
|
|
|
Search completed in 0.002 seconds
|
