The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A134938 Pentagonal numbers that are the sum of a nonzero pentagonal number and a nonzero square in at least one way. 2
 5, 51, 117, 145, 247, 425, 651, 715, 852, 1001, 1247, 1717, 1820, 2147, 2501, 3015, 3151, 4187 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Harvey P. Dale, Table of n, a(n) for n = 1..1000 MATHEMATICA Module[{nn=100, pent}, pent=PolygonalNumber[5, Range[nn]]; Select[Flatten[ Outer[ Plus, pent, Range[Sqrt[Max[pent]]]^2]]//Union, IntegerQ[ (1+Sqrt[ 1+24#])/6]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 27 2020 *) CROSSREFS Sequence in context: A333261 A117710 A064019 * A068540 A208997 A041043 Adjacent sequences: A134935 A134936 A134937 * A134939 A134940 A134941 KEYWORD nonn AUTHOR Jonathan Vos Post, Jan 21 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 28 19:22 EDT 2023. Contains 361596 sequences. (Running on oeis4.)