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 A240587 #7 Apr 14 2014 11:21:47 %S A240587 123457189,123459289,123465253,123466789,123470713,123481753, %T A240587 123482389,123486373,123489913,123501733,123505189,123510613, %U A240587 123535189,123545593,123564373,123571033,123584953,123587833,123592213,123610453,123631513,123641689,123657493 %N A240587 Primes p of the form n^2 + 123456789 where 123456789 is the first zeroless pandigital number. %H A240587 K. D. Bajpai, <a href="/A240587/b240587.txt">Table of n, a(n) for n = 1..1111</a> %e A240587 123457189 is a prime and appears in the sequence because 123457189 = 20^2 + 123456789. %e A240587 123459289 is a prime and appears in the sequence because 123459289 = 50^2 + 123456789. %p A240587 KD := proc() local a; a:=n^2+123456789; if isprime(a) then RETURN (a); fi; end: seq(KD(), n=1..1000); %t A240587 Select[Table[k^2+123456789,{k,1,3000}],PrimeQ] %Y A240587 Cf. A000040, A002496, A028871, A050289, A056899. %K A240587 nonn,base %O A240587 1,1 %A A240587 _K. D. Bajpai_, Apr 08 2014