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 A264744 #26 Jan 29 2016 17:08:39
%S A264744 1,1,1,2,1,2,3,1,4,1,1,1,1
%N A264744 Exponent of the prime power A264734(n).
%C A264744 Subsequence of A025474.
%e A264744 a(9) = 4 is the exponent of 81 = A264734(9) = 3^4.
%t A264744 t = Prepend[Select[Range@ 100000, AllTrue[{# - 2, #, # + 2}, PrimePowerQ] &], 3]; Flatten@ Map[Last, FactorInteger@ # &@ t, {2}] (* _Michael De Vlieger_, Dec 03 2015, Version 10 *)
%o A264744 (PARI) is(k) = isprimepower(k) || k==1;
%o A264744 for(k=1, 1e6, if(is(k) && is(k+2) && is(k-2), print1(bigomega(k), ", "))) \\ _Altug Alkan_, Nov 23 2015
%Y A264744 Cf. A025474, A264734 (prime power k such that both k - 2 and k + 2 is a prime power).
%K A264744 nonn,more,less
%O A264744 1,4
%A A264744 _Juri-Stepan Gerasimov_, Nov 22 2015