This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A152008 #7 Jan 02 2017 01:57:35
%S A152008 7,19,73,163,487,1459,2593,17497,39367,52489,71119,80191,87211,97687,
%T A152008 135433,139483,209953,262657,379081
%N A152008 Primes which are divisors of numbers of the form (2^phi(3^k) - 1)/3^k.
%C A152008 The primes in this sequence have the property that with the exception of 7 they are congruent to 1 mod 18 and with the exception of 7, 19, 73 are congruent to 1 mod 54.
%t A152008 a = {}; Do[k = ((2^EulerPhi[3^(w + 1)] - 1)/3^(w + 1))/((2^EulerPhi[3^w] - 1)/3^w); Do[If[Mod[k, Prime[n]] == 0, AppendTo[a, Prime[n]]; Print[Prime[n]]], {n, PrimePi[2], PrimePi[379081]}], {w, 1, 20}]; Union[a] (*Artur Jasinski*)
%Y A152008 Cf. A008776, A152007.
%K A152008 hard,nonn
%O A152008 1,1
%A A152008 _Artur Jasinski_, Nov 19 2008
%E A152008 Edited by _N. J. A. Sloane_, Nov 26 2008