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 A195943 #19 Aug 12 2013 18:10:39 %S A195943 1,2,3,4,5,7,8,9,11,13,16,17,19,23,25,27,29,31,32,37,41,43,47,49,53, %T A195943 59,61,64,67,71,73,79,81,83,89,97,113,121,125,127,128,131,137,139,149, %U A195943 151,157,163,167,169,173,179,181,191,193,197,199,211,223,227,229,233,239,241,243,251,256,257,263,269,271,277,281,283,289,293,311 %N A195943 Zeroless prime powers: Intersection of A000961 and A052382. %C A195943 In contrast to A195942, we also allow for primes (p^n with n=1) in this sequence. %H A195943 Reinhard Zumkeller, <a href="/A195943/b195943.txt">Table of n, a(n) for n = 1..10000</a> %H A195943 C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_607.htm">Puzzle 607. A zeroless Prime power</a>, on primepuzzles.net, Sept. 24, 2011. %F A195943 A195943 = A000961 intersect A052382 = A000961 \ A011540. %F A195943 A010055(a(n)) * A168046(a(n)) = 1. - _Reinhard Zumkeller_, Sep 27 2011 %o A195943 (PARI) for( n=1,9999, is_A000961(n) && is_A052382(n) && print1(n",")) %o A195943 (Haskell) %o A195943 a195943 n = a195943_list !! (n-1) %o A195943 a195943_list = filter ((== 1) . a010055) a052382_list %o A195943 -- _Reinhard Zumkeller_, Sep 27 2011 %Y A195943 Cf. A195942, A195944, A195945, A195946, A195908, A195948, A007377, A008839, A030700, A030701, A030702, A030703, A030704, A030705, A030706. %Y A195943 Cf. A038618 (subsequence). %K A195943 nonn,base %O A195943 1,2 %A A195943 _M. F. Hasler_, Sep 25 2011