login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A037160 Squares in A037159. 1
21609, 27889, 54289, 1461681, 6610041, 8037225, 25250625, 39778249, 50908225, 60637369, 171321921, 207504025, 218123361, 307265841, 315808441, 380367009, 435598641, 437353569, 528126361, 561073969, 581340321, 708890625, 877285161 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..23.

MATHEMATICA

f[0] = 0; f[n_ /; 0 < n < 10^10] := 3*n - DivisorSigma[1, n]; f[_] = -1; Reap[For[k = 1, k < 3*10^4, k++, If[FixedPoint[f, k^2] == 0, Print[k^2]; Sow[k^2]]]][[2, 1]] (* Jean-Fran├žois Alcover, Sep 17 2013 *)

CROSSREFS

Sequence in context: A190470 A113620 A074812 * A271021 A262818 A213870

Adjacent sequences:  A037157 A037158 A037159 * A037161 A037162 A037163

KEYWORD

nonn,nice

AUTHOR

Naohiro Nomoto

EXTENSIONS

Better description from Jud McCranie, Dec 24 2000

More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 09 2006

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 18 07:18 EST 2019. Contains 319269 sequences. (Running on oeis4.)