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 A241912 #23 Aug 27 2016 09:56:45
%S A241912 1,2,3,4,5,7,8,11,13,15,16,17,18,19,23,29,31,32,37,41,43,45,47,50,53,
%T A241912 55,59,61,64,67,71,73,79,83,89,97,98,101,103,105,107,108,109,113,119,
%U A241912 127,128,131,135,137,139,149,150,151,157,163,167,173,179,181,191,193,197,199
%N A241912 Fixed points of A241916.
%C A241912 A natural number n occurs here if and only if it is either a power of 2, or satisfies A001511(n) = A071178(n) [the exponent of highest power of 2 dividing n is one less than the exponent of the largest prime factor of n], and all the intermediate exponents form a palindrome. [Please see the definition of A241916.]
%C A241912 Numbers for which the corresponding rows in A112798 and A241918 are the conjugate partitions of each other.
%H A241912 Antti Karttunen, <a href="/A241912/b241912.txt">Table of n, a(n) for n = 1..4931</a>
%F A241912 a(n) = A242418(n+1)/2.
%e A241912 98 = 2*7*7 = p_1^1 * p_2^0 * p_3^0 * p_4^2 is included because 2 occurs once, the highest prime factor 7 occurs twice (thus A001511(150) = A071178(150) = 2), and the intermediate exponents (in this case {0,0}) form a palindrome.
%e A241912 150 = 2*3*5*5 = p_1^1 * p_2^1 * p_3^2 is included because 2 occurs once, the highest prime factor 5 occurs twice (thus A001511(150) = A071178(150) = 2), and the intermediate exponents (in this case 1) form a palindrome.
%t A241912 f[n_] := If[n == 1, {0}, Function[f, ReplacePart[Table[0, {PrimePi[f[[-1, 1]]]}], #] &@ Map[PrimePi@ First@ # -> Last@ # &, f]]@ FactorInteger@ n]; g[w_List] := Times @@ Flatten@ MapIndexed[Prime[#2]^#1 &, w]; Table[#[[n + 1]]/2, {n, Length@ # - 1}] &@ Select[Range@ 400, g@ f@ # == g@ Reverse@ f@ # &] (* _Michael De Vlieger_, Aug 27 2016 *)
%o A241912 (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o A241912 (define A241912 (FIXED-POINTS 1 1 A241916))
%o A241912 ;; Alternatively:
%o A241912 (define (A241912 n) (/ (A242418 (+ n 1)) 2))
%Y A241912 Complement: A241913.
%Y A241912 A079704 is a subsequence.
%Y A241912 Cf. A088902, A241916, A242418.
%K A241912 nonn
%O A241912 1,2
%A A241912 _Antti Karttunen_, May 03 2014