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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A036745 Squares including each digit exactly once. 8
1026753849, 1042385796, 1098524736, 1237069584, 1248703569, 1278563049, 1285437609, 1382054976, 1436789025, 1503267984, 1532487609, 1547320896, 1643897025, 1827049536, 1927385604, 1937408256, 2076351489, 2081549376, 2170348569, 2386517904, 2431870596 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The last term of this sequence is a(87) = 9814072356.

LINKS

Nathaniel Johnston, Table of n, a(n) for n = 1..87 (full sequence)

MAPLE

lim:=floor(sqrt(9876543210)): for n from floor(sqrt(1023456789)) to lim do d:=[op(convert(n^2, base, 10))]: pandig:=true: for k from 0 to 9 do if(numboccur(k, d)<>1)then pandig:=false: break: fi: od: if(pandig)then printf("%d, ", n^2): fi: od: # Nathaniel Johnston, Jun 22 2011

MATHEMATICA

Select[ Range[ Floor[ Sqrt[ 1023456789 ] ], Floor[ Sqrt[ 9876543210 ] ] ]^2, Union[ DigitCount[ # ] ]== {1} & ]

Select[FromDigits/@Permutations[Range[0, 9]], IntegerLength[#]==10&&IntegerQ[ Sqrt[#]]&] (* Harvey P. Dale, Apr 09 2012 *)

CROSSREFS

Cf. A156977 (square roots).

Sequence in context: A225295 * A225218 A235726 A268312 A035124 A197952

Adjacent sequences:  A036742 A036743 A036744 * A036746 A036747 A036748

KEYWORD

fini,full,nonn,base

AUTHOR

David W. Wilson

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified September 29 00:53 EDT 2016. Contains 276607 sequences.